Clotters

Actually, I think I may have just cracked it. This should work right?

Private Sub Command1_Click()

On Error GoTo errh:

Dim X As Integer

sof:
X = InputBox(relevant stuff)

Exit Sub

errh:
MsgBox(relevant stuff)
GoTo sof:

End Sub