VBA convert data make easy!

Some question you may ask like the following:

I don't want the last character of my string, how?

string = chakhua12@gmail.com.

Solution:

string  = StrReverse(Mid$(StrReverse(string), 2))

Comment: There are many solution, but this is the

simple one, easy to understand.

How do I change all the following word to "@"(because ?

want to make email extractor)

[at]

-at-

<at>

=at=

Solution:

string = Replace(string, "[at]", "@")

string = Replace(string, "-at-", "@")

string = Replace(string, "<at>", "@")

string = Replace(string, "=at=", "@")