qualcosa del genere....

codice:
stringa="Testo da controllare"
carattere="a"
index=1
cont=0
while instr(index,stringa,carattere)<>0 and index<=len(stringa)
   index=instr(index,stringa,carattere)+1
   cont=cont+1
   index=index+1
wend