Regular expression skal undersøge mail adresse

Hvordan er det nu lige den regular ekspression skal se ud når man undersøger mail adresser? Det er noget i stil med nederstående men jeg kan ikke få det til at virke

Function Check_Email(str)
    Dim regex
    Set regex = New RegExp
    regex.Pattern = "^\w{1}[\w\.\-]*@\w{1}[\w\-]*\.\w{2}\w*$/$"
    Check_Email = regex.Test(str)
End function