mi sembra più semplice così (se hai già studiato la funzione split)
comunque impara a cercare scrivendo in inglese, per esempio "vb.net char occurrences in string"codice:Dim parola As String, Lettera As Char, c As Integer parola = "abcddabddccee" Dim Arr() = {"a", "b", "c", "d", "e", "f", "g"} For Each Lettera In Arr c = parola.Split(Lettera).Length - 1 MessageBox.Show(Lettera + " " + c.ToString) Next
trovi molte soluzioni