Option Explicit
Dim Returvarde As Long

Private Sub Command1_Click()
Returvarde = MsgBox("Det är kul att programmera", vbYesNo + vbExclamation, "HEJ") 'Returvarde får ett värde.
If Returvarde = 6 Then 'om värdet är 6(Ja) så kommer en till MsgBox
MsgBox "Jag håller med", vbOKOnly, "HEJ"
End If
If Returvarde = 7 Then 'om Returvarde är 7(Nej) så avslutas programmet.
Unload Me
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub