Using Wildcards

I am trying to validate whether an e-mail address is in the correct format or not. Why does this not work?

If Trim(txtTo.Text) = "*@*.*" Then
MsgBox "Good"
Else
MsgBox "Bad"
End If

It seems that it always returns bad, unless I actually type "*@*.*". Why are the wildcards not working properly?
ProduktAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

mlmccCommented:
Wildcards do not work across the = sign.  You need to use a string function that accepts the wildcard.

Wildcards were added for database usage to allow for comparison based on a substring.

What you want to have is code to parse the address to see if meets the proper format.

I think if you look at

http://www.freevbcode.com/ShowCode.Asp?ID=4904

you will find the code you need.

mlmcc
0
taiskCommented:
This is because in VB, text comparison is not wildcardable.  The only time the expression Trim(txtTo.Text) = "*@*.*" is true is, as you suggested, when you actually enter "*@*.*".

What you can do instead is to use the instr command.

e.g.
v = Trim(txtTo.Text)
If InStr(v, "@") > 1 And InStr(v, ".") > InStr(v, "@") + 1 And Mid(v, Len(v), 1) <> "."  Then
MsgBox "Good"
Else
MsgBox "Bad"
End If
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
ProduktAuthor Commented:
Works perfectly. Thank you.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Programming

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.