如何在VBA中格式化特定的邮件值

Sub FormatEmailValue()
    Dim email As String
    Dim formattedEmail As String
    
    email = "example@email.com"
    
    ' 检查邮箱格式是否正确
    If Not IsEmailValid(email) Then
        MsgBox "邮箱格式不正确，请重新输入"
        Exit Sub
    End If
    
    ' 格式化邮件值
    formattedEmail = FormatEmail(email)
    
    ' 打印格式化后的邮件值
    MsgBox "格式化后的邮件值为: " & formattedEmail
End Sub

Function IsEmailValid(email As String) As Boolean
    ' 在这里可以编写验证邮箱格式的逻辑，返回True表示格式正确，False表示格式错误
    ' 示例逻辑：检查邮箱中是否包含@符号
    IsEmailValid = InStr(email, "@") > 0
End Function

Function FormatEmail(email As String) As String
    ' 在这里可以编写格式化邮件值的逻辑
    ' 示例逻辑：将邮箱转换为小写字母
    FormatEmail = LCase(email)
End Function