ragazzi un ultima cosa non capisco ke succede vi posto il codice

Private Sub Command2_Click()
Dim car1, car2, car3, car4, car5 As Integer
Dim forcount As Integer
combinazione = "AC QC AF KC 3Q KQ AC"
For forcount = 1 To 5
car1 = InStr(combinazione, "A")
car2 = InStr(car1 + 1, combinazione, "A")
car3 = InStr(car2 + 1, combinazione, "A")
car4 = InStr(combinazione, "K")
car5 = InStr(car4 + 1, combinazione, "K")
Next
If car1 And car2 And car3 And car4 And car5 > 0 Then
MsgBox "tre A due K"
End If

mi da il risultato fino a car4 xkè? il for nn va oltre il 4? -.-
eppure a me il code sembra giusto dove sbaglio?