Originariamente inviato da sotoli
Altrimenti potresti farti una funzione del genere:

codice:
Private Function conta(ByVal s As String, ByVal c As Char) As Integer
    Dim i As Integer = 0, count As Integer = -1
	Do
	    count += 1
	    i = InStr(i + 1, s, c)
	Loop Until (i = 0)
	conta = count
End Function
Non ho capito...
ByVal c As Char ? in VB6 ?

Ciao