用vba写一个判断正则表达式的程序

以下是一个用VBA编写的判断正则表达式的程序：

Option Explicit

Sub testRegex()
    Dim regex As Object ' 正则表达式对象
    Dim inputStr As String ' 要匹配的字符串
    Dim pattern As String ' 正则表达式
    
    ' 初始化正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 设置正则表达式
    pattern = "^[A-Za-z]+$" ' 匹配由英文字母组成的字符串
    regex.pattern = pattern
    
    ' 设置要匹配的字符串
    inputStr = "HelloWorld"
    
    ' 进行匹配
    If regex.test(inputStr) Then
        MsgBox "匹配成功！"
    Else
        MsgBox "匹配失败！"
    End If
    
    ' 释放正则表达式对象
    Set regex = Nothing
End Sub

在这个程序中，我们使用了VBScript.RegExp对象来进行正则表达式的匹配。我们首先通过CreateObject函数创建了一个新的RegExp对象，然后设置了正则表达式的模式（即pattern属性），最后通过test方法进行匹配操作。

在上面的示例中，我们设置了一个正则表达式，它可以匹配由英文字母组成的字符串。然后我们将要匹配的字符串设置为"HelloWorld"，并进行匹配操作。由于"HelloWorld"符合正则表达式的模式，所以匹配成功，程序弹出一个消息框提示"匹配成功！"。

如果我们将要匹配的字符串改为"Hello World"（含有空格），那么就无法匹配成功，程序会弹出一个消息框提示"匹配失败！"。

这个程序只是一个简单的示例，你可以根据需要修改正则表达式的模式，以实现更复杂的匹配操作。