如果写一个带有可选参数的模块

Question

我想写一个模块，普通参数都只是直接传递，但我想用一个好像msgbox这样的函数里面的参数，当输入逗号时，会弹出一个菜单，菜单里定义的是我写好的参数，供用户随意选择，比如：a = myfuntion (参数一,可选参数二（在菜单列出供用户选择))

Answer 1

myfuntion (str1 as string,Optional str2 as string)
如上

Answer 2

enum aa
a=1
b=2
c=3
end enum
public function myfunction(a as long,optional byval b as aa=c)as long
......
exit function

Answer 3

可行，之前我也想过这样的结构，但我用了type 和end type，结果不行
enum的我从没见过，结贴了

Answer 4

Option ExplicitPrivate Enum ABC
    a = 1
    B = 2
    c = 3
End EnumPrivate Sub Command1_Click()
    MyFunction
    MyFunction a
End SubPrivate Function MyFunction(Optional ByVal MyCommand As ABC = c) As String
    MsgBox MyCommand
End Function