'zusätzlich einen Filter setzen
 
Dim dic As New Collections.Generic.SortedDictionary(Of String, Integer)
For i As Integer = 0 To frucht.Count - 1
    If Not frucht(i) = String.Empty Then
        If dic.ContainsKey(frucht(i)) Then
           dic(frucht(i)) += 1
        Else
           dic.Add(frucht(i), 1)
        End If
    End If
Next i