[VB6] Contare le lettere

[Mabi]

Per velocizzare il ciclo e quindi il conteggio si potrebbe utilizzare la InStr:

Const StrProva = "xxxxxAxxxxAxAxxxAxxA"

MsgBox CStr(Ripetizioni(StrProva, "A"))


Private Function Ripetizioni(ByVal Stringa As String, ByVal Lettera As String) As Integer
Dim PosCar As Integer

PosCar = InStr(PosCar + 1, Stringa, Lettera)
Do Until PosCar = 0
  Ripetizioni = Ripetizioni + 1
  PosCar = InStr(PosCar + 1, Stringa, Lettera)
Loop
End Function

In questo modo non controlli tutti i caratteri ma solo quelli scelti