Public Function Convert2German(ByVal toConvert As String) As String
            Dim ret As String = toConvert
            Dim s1() As String = {"%u00e4", "%u00c4", "%u00fc", "%u00dc", _
              "%u00f6", "%u00d6", "%u00df"}
            Dim s2() As String = {"ä", "Ä", "ü", "Ü", "ö", "Ö", "ß"}
            For i As Integer = 0 To s1.Length - 1
                Dim temp As String = ret.Replace(s1(i), s2(i))
                ret = temp
            Next
            Return ret
        End Function