For-Schleife fehlerhaft?

Nun zum Problem:
Die folgende Struktur wird bei einer while-Schleife durchlaufen, am Ende der Schleife ist ein Zähler der die TEST = True zählt, aber irgendwie gibt er mir in der MsgBox1 (siehe Kommentar) noch TEST = false aus, aber in der MsgBox3 am Ende der Schleife ist TEST dann doch wieder true. Woran liegt das? Es liegt bestimmt an der for-Schleife, ich glaube damit werd ich mich nie anfreunden...

If TEST = True Then
If P_Var = True And TEST = True Then
TEST = False
P_Typ = ""
Varianten = ListBox4.ListCount
MsgBox "abgelehnt" & TEST 'MsgBox1
For i = 0 To Varianten
If ListBox4.List(i, 0) = Left(Sheets(1).Cells(Zeile, 6), 6) Then
TEST = True
MsgBox ListBox4.List(i, 0) & " " & Left(Sheets(1).Cells(Zeile, 6), 6)
Else
TEST = False
End If
Next i
End If
End If
MsgBox TEST & Zeile 'MsgBox3

Danke im voraus für eure Hilfe