If CheckForActivate = False AndAlso Not ResStr = ID.ActivateCode Then
ShowActivateDialog: With ActivateDialog
                        .KeyCode = ID.KeyCode
                        .ActivateCodeValue = ID.ActivateCode
                        If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                            If .ActivateCode = ID.ActivateCode Then
                                IO.File.WriteAllText(ActivateDocument, ID.UnlockString(.ActivateCode))
                                MsgBox("Activate Document Created Successfully.", MsgBoxStyle.Information)
                            End If
                        End If
                    End With
                End If