VBA-Like运输符号

'like: 用来比较两个字符串，返回值的逻辑值true或false
'语法结构：result=string Like patter
'pattern 中的字符  符合string中的
'?      任何单一字符
'*         零个或多个字符
'#      任何一个数字（0-9）
'[charlist]     charlist中的任何单一字符
'[!charlist]   不在charlist中的任何单一字符

Sub LikeTest()
Dim k%, y%
k = 1
MsgBox k Like "#"
End Sub