Finding character to the left of @

[jdc6029]

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

[Joacim Andersson]

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

Cheers,

[jdc6029]

Thank you Joacim