Come gli è stato indicato da gambafeliz (wiki) deve raddoppiare gli backslash
Public Sub Main()
Dim sPath As String = "giuggiolino@gmail.com"
Dim sExp As String = "(?i)\\b[a-z0-9._%\\-]+@[a-z0-9._%\\-]+\\.[A-Z]{2,4}\\b"
If Not RegExp.Match(sPath, sExp) Then
Print "sPath is NOT a correct e-mail address"
Else
Print "sPath is a correct e-mail address"
Endif
End
P.S. Scusatemi, avevo aggiunto un'altra espressione che non era corretta e l'ho tolta