After checking the field in userform, if the information is not added how to I shut down form

[tonydeimone1942]

Private Sub cmbOK_Click()
Sheet1.Activate

Range("A1").End(xlDown).Offset(1, 0).Select

If IsNumeric(txtname.Value) Then
MsgBox "You must enter a Name!"
End If

'If txtname = "" Then
'MsgBox "You must enter a Name - Idiot!"
'End If




'If txtname = "" Then
'MsgBox "You must enter a Name - Idiot!"
'Else
'Exit Sub
' End If

If IsNumeric(txtPhone.Value) Or "" Then
MsgBox "Make sure it is ten digits with no hyphens!"
Else
MsgBox "What do you not understand about a phone number only!"
End If

If txtPhone = "" Then
MsgBox "You must enter a Phone Number - Idiot!"
End If

If cboParty = "" Then
MsgBox "You must enter a Party!"
End If

If txtMuninow = "" Then
MsgBox "You must enter the Present Municipality!"
End If

If txtWardnow = "" Then
MsgBox "You must enter the Present Ward!"
End If

If txtDistrictnow = "" Then
MsgBox "You must enter the Present District!"
End If

If txtWantsMuni = "" Then
MsgBox "You must enter the Requested Municipality!"
End If

ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
ActiveCell.Value = txtname.Value
ActiveCell.Offset(0, 1).Value = txtPhone.Value
ActiveCell.Offset(0, 1).NumberFormat = "[<=9999999]###-####;(###) ###-####"
ActiveCell.Offset(0, 2).Value = cboParty.Value
ActiveCell.Offset(0, 3).Value = UCase(txtMuninow.Value)
ActiveCell.Offset(0, 4).Value = txtWardnow.Value
ActiveCell.Offset(0, 5).Value = txtDistrictnow.Value
ActiveCell.Offset(0, 6).Value = UCase(txtWantsMuni.Value)
ActiveCell.Offset(0, 7).Value = txtWnatsward.Value
ActiveCell.Offset(0, 8).Value = txtWantsdistrict.Value



Unload Me

End Sub