VBA: Wenn Button "Cancel" dann...

Option Explicit
Dim appWord As Object
Dim DocTest As Object
Dim iClick As Variant
Sub UF2_Word_CheckBox()
' Hier Bewohner Bezogen
'    DocTest.FormFields("Name").Result = "Name"
'    DocTest.FormFields("GebDatum").Result = "GebDatum"
iClick = MsgBox( _
prompt:="Darstellung der Schmerzeinschätzung?" & vbCrLf & _
"mit NRS, Bestätigen Sie die mit (Ja)" & vbCrLf & _
"mit BESD, Bestätigen Sie dies mit (Nein)", _
Buttons:=vbExclamation + vbYesNoCancel)
If iClick = vbYes Then
DocTest.FormFields("ChB1_NRS").CheckBox.Value = True
DocTest.FormFields("ChB2_NRS").CheckBox.Value = True
MsgBox "Sie haben die Schmerzeinschätzung über (NRS) gewählt!", vbInformation
ElseIf iClick = vbNo Then
DocTest.FormFields("ChB1_BESD").CheckBox.Value = True
DocTest.FormFields("ChB2_BESD").CheckBox.Value = True
MsgBox "Sie haben die Schmerzeinschätzung über (BESD) gewählt!", vbInformation
ElseIf iClick = vbCancel Then
MsgBox "Die Rutine wurde beendet!", vbInformation
'Exit Sub
Unload UF2_Tab6_Drucken
DocTest.Close savechanges:=False
appWord.Quit
Set DocTest = Nothing
Set appWord = Nothing
Exit Sub
End If
End Sub