Finding character to the left of @

Should be simple but not today. I just need to return the character in a string that is just to the left of the character @

So from the string vb@test the letter b would be returned

Thanks

VB Code:

Dim sTheString As String
sTheString = "vb@test"
MsgBox Mid$(sTheString, Instr(sTheString, "@") - 1, 1)

Cheers,

Thank you Joacim