How to split up a string, and then count each character?

[havoc33]

I'm really stuck on this.. how do I split up a string and then count each character? For example that the letter A had 3 occurences, b had 2 etc. etc.. I've been working on this for several days, but I can't figure it out. So any help would be appreciated.

 

[Golom]

Sub CountChars(myString As String)
Dim Counts(255) As Integer
Dim n           As Integer

For n = 1 To Len(myString)
    Counts(Asc(Mid$(myString, n, 1))) = Counts(Asc(Mid$(myString, n, 1))) + 1
Next n

For n = 0 To 255
   If Counts(n) > 0 Then
      Debug.Print Chr$(n), Counts(n)
   End If
Next n

End Sub