vb 函数参数可选

Public Sub AddItem(Item As String, Optional Index As String = "")
    If Len(Index) = 0 Then
        MsgBox Index
    Else
        MsgBox Index
    End If
End Sub
Private Sub Command1_Click()
    Call AddItem("sss", "sdf")
End Sub