Visual Basic 6 - ricerca nella stringa

ciao a tutti, vorrei chiedervi una cosa

praticamente io ho una label con dentro una string del tipo "abac"
detto questo, vorrei sapere come posso dire al programma di verificare se all'interno di questa stringa sono presenti due "a" (come in abac) per poi mettere un ciclo if del tipo


If 'label1.caption contiene due "a"' (hiihhi) then
msgbox "ciao"
end if


grazie mille per le risposte

Devi usare la funzione InStr..

es:

InStr("StRINGA IN CUI CERCARE","Stringa da cercare!")

E potresti tenere il conto di quante volte dice si....

ma se io metto

Private Sub Command1_Click()
Dim x As String
x = InStr("abac", "a"
MsgBox x
End Sub

mi esce 1, anche se in "abac" ci sono 2 "a"
mi potresti spiegare meglio questa funzione XD?

Ma non ti dice quante volte si ripete un carattere bensi la posizione...quindi tu fai un conto...Di tutte le volte che ti dice la posizione(Che c'è il carattere "a",se nn c'è ti dice false!

e non ce una funzione per sapere quante volte si ripete un carattere XD?

Usa la fantasia e la funzione detta scusa....

Tieni un conto di quante volte ti dice che esiste il carattere,incrementando un avariabile ogni volta...non è difficile dai!

forse sono diventato scemo io XD
ma non capisco una cosa

se io ho questo codice

Private Sub Command1_Click()
Dim x As String
x = InStr("abac", "a"
MsgBox x
End Sub

lui nel messaggio mi dice solo 1 volta che c'è il carattere "a", non due volte (mi dice "1", cioe sarebbe la posizione del primo carattere "a", ma poi non dice piu niente)

booh

Ma il conto lo devi creare tu ....
Per esempio:

Dim str as string
Dim x1,x2 As Boolean
Dim cont as integer
Dim forcount as integer
str = "AER"
For forcount = 1 to 2
x1 = instr(str,"A")
x2 = instr(str,"B")
next
if x1 and x2 then 
MSgBox "Nella stringa è presente sia il carattere a che b!",vbokoonly + vbinformation,"Stringa"
end if

Questo è da quello che ho capito io