Visual Basic - echadle un vistazo a este codigo

Quiero arreglar esta rutinilla para que al pulsar el botón Cancel termine dicho programa:




Lbl1:

x = InputBox("Nº de obras que certificó el pasado mes", "PLAVIFOM")

If Not IsNumeric(x) Then

MsgBox "Debe introducir un número entero", 16, " ¡Atención!"

GoTo Lbl1:

End If

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
x = InputBox("Nº de obras que certificó el pasado mes", "PLAVIFOM")

If Not IsNumeric(x) Then
MsgBox "Debe introducir un número entero", 16, " ¡Atención!"
Cancel = True
End If

End Sub