You could also do:

lcDelims = ",:/" && all the delimiters you want changed
lcChangeTo = ";"
lcEmail = ChrTran(lcEmail, lcDelims + " ", Replicate(lcChangeTo, Len(lcDelims))


Here is the explanation:
This will replace every character in lcDelims with the lcChangeTo and replace all " " with "", thereby removing spaces.