Optionale Parameter in eigener Sub

Einen schönen verregneten Tag allerseits!

In einem Agenten hab ich ein paar Subs drin. Unter anderem auch eine für das Logging. Zu übergeben sind 4 Parameter:
Sub ALog(NLog As NotesLog, LType As Integer, Msg As String, Errcode As Integer)
NLog: die Instanz des NotesLogs
LogType: 0 oder 1 (LogAction oder LogError, selbstdefiniert)
Msg: die eigentliche Ausschrift (Feld A$ACTION, bzw. A$ERRMSG der Maske "LogEntry" der alog4.ntf)
Errcode: der ErrorCode, der im Falle eines Fehler übergeben wird (Feld A$ERRCODE)
Der Aufruf erfolgt bspw. mit
Call ALog(agentLog, 1, thisAgName & ": Agent started: " & Now, 0)

So, nun die Frage, wie ich es hinbekomme, dass der 4. Parameter optional ist. Ich möchte eigentlich nicht für das "normale" Logging und fürs Errorlogging zwei Subs schreiben. Ich könnte mich zwar strikt dran halten, dass ich immer alle 4 Parameter übergebe; im Falle des "normalen" Loggings meinetwegen eine "0", oder so. Aber wirklich schön finde ich das nicht...

thx in advance
RW

Ich danke euch.

Was bei atnotes beschrieben ist, mag zwar funktionieren. Ich teile aber die Ansicht, dass das a) ranzig aussieht und b) nicht mehr wirklich gut zu warten ist.

@Dirk: Das wäre eine Möglichkeit gewesen. Ich bin allerdings schon beinahe durch und hab ehrlich gesagt keine Lust mehr, den halben Code zu re-writen. Es betrifft ärgerlicherweise nicht nur die Log-Sub, da gibt es noch ein paar andere Stellen...

Tja, wäre ja auch zu schön gewesen...