Public Function HieroglypheToUmlaut(ByVal Zeichenfolge As String) As String
    Zeichenfolge = Replace(Zeichenfolge, "", Nothing)
    Zeichenfolge = Replace(Zeichenfolge, "ä", "ä")
    Zeichenfolge = Replace(Zeichenfolge, "Ä", "Ä")
    Zeichenfolge = Replace(Zeichenfolge, "ö", "ö")
    Zeichenfolge = Replace(Zeichenfolge, "Ö", "Ö")
    Zeichenfolge = Replace(Zeichenfolge, "ü", "ü")
    Zeichenfolge = Replace(Zeichenfolge, "Ãœ", "Ü")
    Dim umgewandelt As String = Replace(Zeichenfolge, "ß", "ß")
    Return umgewandelt
End Function
 
Dim DownloadedString As String = HieroglypheToUmlaut(WebClient.DownloadString( _
  "http://kp.de/kp.txt"))

Gruss Caddy