try

Code:
MsgBox Left(TestString, InStrRev(TestString, "\") - 1) & Mid(TestString, InStrRev(TestString, "\") + 1)