As Adam said there are many ways to skin a cat, how would I do it:
address = "firstname.lastname@example.org"
result = left(address,(InStr(address, "@")-1))
I have made the assumption you know how the place this code in a loop.
Wind is your friend