Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!
Public Function IsValidEmail(sEmailAddress As String) As Boolean
Dim objRegExp As Object
Set objRegExp = CreateObject("VBScript.RegExp")
With objRegExp
.Pattern = "^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}$"
.IgnoreCase = True
.Global = False
End With
IsValidEmail = objRegExp.Test(sEmailAddress)
End Function