
Sub Sample()
Dim a As Integer
a = 10
MsgBox myFunc(a)
End Sub
Private Function myFunc(a As Integer, Optional b As Variant)
If IsMissing(b) Then '引数bが省略されているのでTrueを返します
myFunc = a
Else
myFunc = a * b
End If
End Function