così è + semplice, prova.....

Dim CosaCercare As String
Dim i As Integer
Dim posizione As Integer
Dim offset As Integer
Dim DoveCercare As String

DoveCercare = "AABCDAAFCAAAA"
CosaCercare = "AA"

offset = Len(CosaCercare)
posizione = 1

While Not posizione >= Len(DoveCercare)
If InStr(posizione, DoveCercare, CosaCercare) > 0 Then
i = i + 1
posizione = InStr(posizione, DoveCercare, CosaCercare) + offset
Else
posizione = posizione + 1
End If

Wend


MsgBox i