Dim enc As System.Text.Encoding = System.Text.Encoding.UTF7
Dim lines() As String = IO.File.ReadAllLines(<Pfad,Name der Textdatei?>, enc)
 
For i As Integer = 0 To lines.Length - 1
   lines(i) = lines(i).Substring(10).ToUpper.Trim
   If lines(i).StartsWith("-") Or lines(i).StartsWith("_") Then
      lines(i) = lines(i).Substring(1)
   End If
   lines(i) = lines(i).Replace("Ä", "AE")
   lines(i) = lines(i).Replace("Ö", "OE")
   lines(i) = lines(i).Replace("Ü", "UE")
Next i
 
Array.Sort(lines)