[VB.NET] Esercizio su stringhe per conteggio occorrenze

[Xatar]

Ciao ho scritto una stringa come input, e voglio sapere il numero delle ricorrenze, il programma che sono riuscito a fare mi dava le ricorrenze, ma purtroppo se ci sono più lettere uguali, il programma si svolge ma con degli errori.
esp: errore
ABBCCC
A=1
B=2
B=1
C=3
C=2
C=1
in realtà ciò che vorrei è :
ABBCCC
A=1
B=2
C=3
So che sbaglio nel output, vorrei dei suggerimenti che mi portino da solo alla soluzione. Questo è il mio codice.
c

     Dim parola, Lettera, max, car As String        Dim i, ss, c, lunghezza As Integer


        parola = TextBox1.Text
        lunghezza = Len(parola)
        Label1.Text = ""
        Label2.Text = ""
        For i = 1 To lunghezza
            car = Mid(parola, i, 1)
            ss = 0


            Lettera = car
            For c = i To lunghezza
                max = Mid(parola, c, 1)
                If Lettera = max Then
                    ss = ss + 1
                End If
            Next
         
                Label1.Text = Label1.Text & vbCrLf & Lettera & "= " & ss

        Next