Prüfen ob ein bestimmtes zeichen in einem Text vorkommt

[Kriskra]

Hi,

Ich habe eine Mail Adresse, nun will ich z.b. prüfen ob wirklich ein @ in dieser Mail adresse vorkommt, wie mache ich das? Es sollte mögichst einen Bolean wert zurrückgeben und eine mögichst schnelle funktion sein, da ich eine ganze DB damit prüfen will. Wäre ihnen sehr verbunden.

Mfg
Kriskra

 

[Shakie]

Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])

    If InStr(1, "Emailadresse@Irgendwas.de", "@", vbTextCompare) <> 0 Then
        '-->Es ist ein @ im Text.
    End If

 

[Kriskra]

Jop mir is dann eingefallen ich hab die funktion schonmal benutzt. Trotzdem vielen dank