Zitat:

Mit Right(TestVar, Instr(Testvar, " ")) hatte ich keinen Erfolg, da er von hinten zu vergleichen beginnt.

MsgBox InStr(TestVar, " "),,"InStr zählt von links"
MsgBox InStrRev(TestVar, " "),,"InStrRev zählt von rechts"

Sub xyz()
Dim TestVar As String
Dim S() As String
Dim V As Variant
Dim i As Long
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
TestVar = "Teil1 Teil2 Teil3 Teil4"
'  Aufteilen des Textes an den Leerstellen
S() = Split(TestVar, " ")
 
' Durchlauf ohne Zähler
For Each V In S()
     MsgBox V, , "ohne Zähler"
Next V
 
' Durchlauf mit Zähler
For i = 0 To UBound(S())
     MsgBox i & " = " & S(i), , "mit Zähler"
Next i
End Sub