Public Sub Foo( _
ByVal _
Var1 _
As _
Integer _
, _
ByVal Var2 As String, ByVal Var3 As Byte, _
Optional ByVal Var4 As Object, Optional ByVal Var5 As Date, _
Optional ByVal Var6 As Long)
Dim test As Integer
End Sub
Public Sub Goo(ByVal Var1 As Integer, ByVal Var2 As String, ByVal VarXYZ As Byte, ByVal Var4 As Object, ByVal Var5 As Date, ByVal Var6 As Long, ByVal Var7 As Double)