拍拍尘土

Function StrReplace(s As String, p As String, r As String) As String
        
         Dim re As RegExp
         Set re = New RegExp
           re.IgnoreCase = True
           re.Global = True
           re.Pattern = p
           StrReplace = re.Replace(s, r)
        
End Function

Private Sub Command2_Click()

         Dim s As String '字符串
         Dim p As String '正则表达式
         Dim r As String '要替换的字符串

　　'以下代码是替换邮箱地址