Записать в файл символы встречающиеся в другом файле - Visual Basic .NET

        Dim myText As String = "Так уж повелось, что большинство зверей не ест себе подобных. Кролик не ест кролика, лошадь не ест лошадь, а кошка не ест шаурму..."
 
       Dim sd As New System.Collections.Generic.SortedDictionary(Of Integer, Integer)
 
        For Each c As Char In myText
            If Not sd.ContainsKey(AscW(c)) Then
                sd.Add(AscW(c), 1)
            Else
                sd(AscW(c)) += 1
            End If
        Next
 
 
        Using sw As New IO.StreamWriter("C:\\CharsTable.txt", False)
            For Each k As System.Collections.Generic.KeyValuePair(Of Integer, Integer) In sd.Reverse()
                sw.WriteLine(k.Key & vbTab & ChrW(k.Key) & vbTab & k.Value)
            Next
        End Using