VB6 Like operator not picking up space character - regex

Question

I have a legacy app whereby email addresses are validated using a RegEx experssion passed to VB6 and then compared using the Like operator
The RegEx expression is still allowing space characters to be included in the email address which I do not want.
The code below - I want the first to retru True but the second to return False. What amendment to I need to make to the RegEx expression?
Sub LikeTest()
MsgBox "hello#hello.com" Like "[A-Za-z0-9-\.\]*#*[A-Za-z0-9-\.\].*[A-Za-z]" 'returns True
MsgBox "hello# hello.com" Like "[A-Za-z0-9-\.\]*#*[A-Za-z0-9-\.\].*[A-Za-z]" 'returns True but should return False
End Sub

Answer 1

DIM test
test = LikeTest("hello#hello.com")
Function LikeTest(sEmail)
RegExpTest = false
Dim regEx, retVal
Set regEx = New RegExp
' Create regular expression:
regEx.Pattern ="^[\w-\.]{1,}\#([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$"
' Set pattern:
regEx.IgnoreCase = true
' Set case sensitivity.
retVal = regEx.Test(sEmail)
' Execute the search test.
If not retVal Then
RegExpTest = false
else
RegExpTest = true
End If
MsgBox(RegExpTest)
End Function
Source:
https://web.archive.org/web/20061026092253/http://www.4guysfromrolla.com/aspfaqs/ShowFAQ.asp?FAQID=47