Dim werte() As Int32 = {0, 8, 4, 12, 2, 10, 6, 14, 1, 9, 5, 13, 3, 11, 7, 15}
        Dim zahl As Int32
        Dim strdez As String = ""
        For i As Int32 = 0 To txtEMUniKey.Text.Length - 1
            zahl = Asc(txtEMUniKey.Text.Chars(i)) - 48
            If zahl > 9 Then zahl -= 7
            strdez &= werte(zahl).ToString
        Next
        Me.Text = strdez       '0-9 + A-F aus der TextBox Wandeln