And one more possibility:

Code:
Dim str As String
str = "SMTP:[email protected]"
str = Replace$(str, "SMTP:", "")
str = Replace$(str, "@abc.com", "")
-tg