Tab als Trennzeichen in Makro?

Sub Aufteilen()
Dim AC As Range
Dim n%, TMP$, Eingabe$
Eingabe = ";"
Set AC = ActiveCell
TMP = AC.Value
n = 1
While IsEmpty(TMP) = False
AC.Offset(n, 0) = vName(TMP, Eingabe)
On Error GoTo Beenden
TMP = Right(TMP, Len(TMP) - (Len(AC.Offset(n, 0)) + 1))
n = n + 1
Wend
Beenden:
End Sub

Function vName(c, Eingabe)
Dim i%
i = InStr(c, Eingabe) - 1
If i > 0 Then vName = Left$(c, i) Else vName = c
End Function