Excel VBA - delete string content after *word*

Question

I'm trying to delete string content before a certain word contained within the string. For example

[email protected]

I'd like to use VBA in order to replace that with

master_of_desaster

Everything after the "word" (@) should be removed, including the "word" itself.

I found a similar topic here, but he asks the opposite.

Answer 1

email = "[email protected]"

ret = Left(email, InStr(1, email, "@") - 1)

Result: master_of_desaster

Thanks to Shai Rado