find a character in a string

[captain bob]

bl3 = UCase(bl1) 'change to uper case

If bl3 = "@" Then
bl3 = Clear
End
End If


I am trying to use the above to search for a @ in an email string. I
does not work.

What can I do to look for a character @ and if I do not find it delet
the string

 

[mcg]

captain bob napisal(a):

bl3 = UCase(bl1) 'change to uper case

If bl3 = "@" Then
bl3 = Clear
End
End If


I am trying to use the above to search for a @ in an email string. It
does not work.

What can I do to look for a character @ and if I do not find it delete
the string?

If Not bl3 Like "*@*" Then bl3 = ""
mcg