Opttypedparam

Public Sub SubX(Optional b As Boolean)
If IsMissing(b) Then
MsgBox "b is missing"
Else
MsgBox "b is not missing"
End If
End Sub

...
'Call SubX with no parameters

SubX

Public Sub SubX(Optional i As Integer = 1)
...
...
End Sub