'zusätzlich
fruchtfreq.Sort(AddressOf CompareStringDescending)

    Private Function CompareStringDescending _
       (ByVal a As String, b As String) As Integer
 
        If a > b Then Return -1
        If a < b Then Return 1
        Return 0
    End Function