en teoría deberías editar:
por:
Código (vb) [Seleccionar]
If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Windows Key Information") then
Save ProductID
End if
por:
Código (vb) [Seleccionar]
Save ProductID