VB6.0自定义函数中的参数问题

VB6.0自定义函数的时候，怎么定义一个可有可无的参数？就好像Mid(Str，n1,n2)函数一样，最后的那个n2就可以不需要设定，没有赋值的时候，Mid函数返回另一种值，这就是一个可有可无的参数。自定义的函数怎么弄？
比如，定义了一个myName(a,b,c,d)函数，以后在调用的时候，c的值可以不需要设定，写为myName(a,b,,d)就可以，而不提示出错。

blic Sub A(Optional A As Integer = 1, Optional B As Double = 2)Sub A(Optional A As Integer = 1, Optional B As Double = 2) 

MsgBox "A=" & A
MsgBox "B=" & B
End Sub
Private Sub Form_Click()
Call A(, 23)
End Sub