Private Sub Form_Unload(Cancel As Integer)

Dim retval As Integer
Dim msg As String

msg = "The setup has not been finished!" & vbCrLf
msg = msg & "Exiting might cause problems when using this program." & vbCrLf
msg = msg & "We recommend that you do not exit before finishing this setup."
msg = msg & "Do you still wish to exit setup?"

If Text3 = "OK" Then
retval = MsgBox(msg, vbYesNo, "Exit Setup")
Else 'if text3 doesn't equal "ok"
Exit Sub 'Exit the program
End If
If retval = vbNo Then
End
Else
MsgBox "ok..code me so I can do whatever!"
End If

End Sub