vi volevo ringraziare ho messo insieme i vostri consigli utili e sono arrivato alla conclusione di fare così, posto il codice magari può servire a qualcun'altro.

Dim g1, g2, g3 As Integer
Dim forcount As Integer
For forcount = 1 To 3
g1 = InStr(combinazione, "A")
g2 = InStr(g1 + 1, combinazione, "A")
g3 = InStr(g2 + 1, combinazione, "A")
Next
If g1 And g2 And g3 > 0 Then
MsgBox "Tris A"
End If

se magari voi lo accorciate di più postate , è sempre utile. grz a tutti.