如何使用vba使用regex格式化多封电子邮件

Sub FormatEmails()
    Dim regex As Object
    Dim emailPattern As String
    Dim emails As String
    Dim formattedEmails As String
    
    ' 创建正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 定义电子邮件的匹配模式
    emailPattern = "([a-zA-Z0-9._-]+@[a-zA-Z0-9._-]+\.[a-zA-Z0-9_-]+)"
    
    ' 获取多封电子邮件的文本
    emails = "example1@example.com; example2@example.com; example3@example.com"
    
    ' 设置正则表达式的模式和全局匹配
    With regex
        .Pattern = emailPattern
        .Global = True
    End With
    
    ' 使用正则表达式匹配电子邮件
    If regex.Test(emails) Then
        ' 格式化匹配到的电子邮件
        formattedEmails = regex.Replace(emails, "$1, ")
        
        ' 去除最后一个逗号和空格
        formattedEmails = Left(formattedEmails, Len(formattedEmails) - 2)
        
        ' 输出格式化后的电子邮件
        MsgBox formattedEmails
    Else
        MsgBox "No emails found."
    End If
End Sub