Io farei così

codice:
function conta()
dim testo, appoggio as string
dim lungehzza, conta as integer

conta = 0
testo = txttesto.text
lunghezza = Len(testo)

for i = 1 to lunghezza
  appoggio = mid(testo, i , 1)
  if appoggio = "a" then
    conta = conta + 1
  end if
next K

end function