VBA user input error handling

[rharn]

I have a userform that requires the user to input an integer between the range of 0-8 for the sub to function correctly. My dilemma is right now I have specified an if/then statement that shows a message box informing the user if they are out of bounds, however after the user clicks ok on the msgbox, the sub skips to the end, and unloads my userform. Is there anyway to inform the user that they are out of range and return to the userform for them to correct their input value?

 

[rs2k]

This seems to work;

Private Sub CommandButton1_Click()
Select Case TextBox1.Value
Case 1 To 8
GoTo 2
Case Is > 8
MsgBox "TextBox1 is too High"
Exit Sub
End Select
2
Select Case TextBox2.Value
Case 1 To 8
MsgBox "Run your Code"
Case Is > 8
MsgBox "TextBox2 is too High"
End Select
End Sub

HTH
Colin