Four methods off the top of my head (untested)
Option 1.Dim Words()As String
Words = Split(StringA, vbTab)
StringB = Words(Ubound(Words))
Option 2.StringB = StringA
Do While Instr(StringB, vbTab)
StringB = Mid(StringB, Instr(StringB, vbTab) + 1)
Loop
Option 3.Dim Ptr As Integer
Ptr =...