Dim VOL_PROD_KEY
        VOL_PROD_KEY = TextBox6.Text & "-" & TextBox5.Text & "-" & _
          TextBox4.Text & "-" & TextBox3.Text & "-" & TextBox2.Text
        VOL_PROD_KEY = Replace(VOL_PROD_KEY, "-", "")
        'DeleteValue("SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents", 
        ' "OOBETimer")
        For Each Obj In GetObject( _
          "winmgmts:{impersonationLevel=impersonate}").InstancesOf( _
          "win32_WindowsProductActivation")
            On Error Resume Next
            Result = Obj.SetProductKey(VOL_PROD_KEY)
            If Not (Err = 0) Then
                MsgBox(" Dies ist ein ungülltiger CD-Key")
              Else
                MsgBox("Ihr CD-Key wurde erfolgreich gewechselt!")
            End If
        Next