正则表达式应用一例 判断输入字符

Sub T()
    Dim UseInput    As String
    Dim myReg       As Object
   
    UseInput = InputBox("输入的字符必须都是字母并且最后一个字符是“e”或者“E”", "请输入字符")
   
    Set myReg = CreateObject("Vbscript.RegExp")
    myReg.Global = True
    myReg.IgnoreCase = True
    myReg.Pattern = "^[a-z]*e$"
   
    If myReg.Test(UseInput) Then
        MsgBox "你输入的字符符合要求"
    Else
        MsgBox "输入的字符必须都是字母并且最后一个字符是“e”或者“E”"
    End If
   
    Set myReg = Nothing
   
End Sub