Private Structure BuchstabenStruct
        Implements IComparable(Of BuchstabenStruct)
 
        Public Buchstabe As Char
        Public Haeufigkeit As Integer
 
        Public Function CompareTo(ByVal other As BuchstabenStruct) As Integer _
          Implements System.IComparable(Of BuchstabenStruct).CompareTo
            ' Nach Häufigkeit sortieren, absteigend
            Return other.Haeufigkeit.CompareTo(Me.Haeufigkeit)
        End Function
    End Structure
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Haeufigkeiten As BuchstabenStruct()
        ReDim Haeufigkeiten(0 To 25)
 
        ' Buchstaben zuweisen
        For i As Integer = 0 To Haeufigkeiten.Length - 1
            Haeufigkeiten(i).Buchstabe = ChrW(AscW("a"c) + i) 'leider kann man 
            ' in VB.Net mit Chars nicht rechnen
        Next
 
        Dim text As String = txtEingabe.Text.ToLower()
        Dim j As Char
        For i As Integer = 0 To text.Length - 1
            j = text(i)
            If j >= "a"c And j <= "z"c Then
                Haeufigkeiten(AscW(j) - AscW("a"c)).Haeufigkeit += 1
            End If
        Next i
 
        ' nach Häufigkeit sortieren
        Array.Sort(Haeufigkeiten)
        MessageBox.Show(Haeufigkeiten(0).Buchstabe) ' der häufigste Buchstabe
        MessageBox.Show(Haeufigkeiten(1).Buchstabe) ' der 2. häufigste 
        ' Buchstabe usw.
 
    End Sub