Excel VBA - 删除*word*后的字符串内容

Bla*_*ack 5 excel vba

我正在尝试删除字符串中包含的某个单词之前的字符串内容。例如

master_of_desaster@live.de
Run Code Online (Sandbox Code Playgroud)

我想使用 VBA 来替换它

master_of_desaster
Run Code Online (Sandbox Code Playgroud)

“单词”(@) 之后的所有内容都应删除,包括“单词”本身。

我在这里找到了类似的话题,但他问了相反的问题。

Bla*_*ack 5

email = "master_of_desaster@live.de"

ret = Left(email, InStr(1, email, "@") - 1)
Run Code Online (Sandbox Code Playgroud)

结果:master_of_desaster

感谢谢·拉多