Dim locHex As String
        For Each c As Char In TextBox1.Text.ToCharArray
            locHex &= Convert.ToInt32(c).ToString("X") & ","
        Next
        '-----------------------schreibe pid in die 
        ' registry--------------------------
        Dim bytes As New List(Of Byte)
        bytes.AddRange(New Byte() {164, 0, 0, 0, 3, 0, 0, 0, 0, 140, 0, 0, 0, _
          88, 49, 49, 45, 56, 57, 53, 49, 56, 0, 0, 0, 0, 0, 0, 0, 83, 132, _
          136, 205, 40, 188, 214, 153, 198, 34, 17, 229, 0, 243, 5, 0, 0, 0, 0, _
          0, 73, 39, 244, 68, 111, 62, 248, 176, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
          0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
          0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
          0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
          0, 162, 34, 113, 59})
        'bytes.Insert(8, 36, 4D, 54, 4D, 52, 2D, 51, 59, 54, 4D, 38, 2D, 59, 
        ' 36, 58, 33, 51, 2D, 43, 32, 58, 58, 4D, 2D, 56, 38, 57, 46, 33)
        bytes.InsertRange(8, New Byte() {locHex})
        For Each b As Byte In bytes
        Next
        Dim ba() As Byte = bytes.ToArray()
        rk.SetValue("DigitalProductId", bytes.ToArray, RegistryValueKind.Binary)