Function umw(ByVal teststr As String)
        Dim ISO As Encoding = Encoding.GetEncoding("ISO-8859-1")
        Dim Bytes() As Byte = ISO.GetBytes(teststr)
        Dim s As String = iso.GetString(Bytes)
        Console.WriteLine(s)
    End Function