[VBA]Function Optional integer

如何创建一个自定义函数，其包括可选变量，如果可选变量没有出现，给出默认值，下面是我找了半天，才悟出来的方法，大家指点：

Function H(s As String, Optional Index As Integer = -1, Optional I2 As Integer = -1) As Variant


If Index = -1 Then
Index = 100 'Missing Value
Else
H = Index
End If


If I2 = -1 Then
I2 = 1000 'Missing Value
Else
H = Index
End If

H = Index + I2

End Function

Sub tests()

MsgBox H("a", , 2000)

End Sub