Ausdruck

Reguläre Ausdrücke:
Imports System.Text.RegularExpressions
Module Module6
Sub main(ByVal args() As String)
Dim inp As String
Dim rx As New Regex("[a-z]+@[a-z]+.(de|com)")
For Each inp In args
If (rx.IsMatch(inp)) Then
Console.Write("{0} ist ok", inp)
Else
Console.Write("{0} ist falsch", inp)
End If
Next
Console.ReadLine()
End Sub
End Module
'besser:
'"^[\w\.\-]+@([\w\-]+\.)*[\w\-]{2,63}\.[a-zA-Z]{2,4}$"