Validate InputBox entry

My code below seeks to validate the InputBox entry. It however returns all previous wrong entries as well. For example, if 5, 3, 2 are entered, the Msgbox delivers 2, 3, 5 in that order. Why is there such implicit static attribute? And how can I cure the problem without resorting to GOTO labelling?

Sub TestValidate()
x = InputBox("Enter 2")
If x <> 2 Then TestValidate
MsgBox x
End Sub

DM

it return values from previous entry bcos u nv exit the sub b4 u loop the sub again, try these

Sub TestValidate()

x = InputBox("Enter 2")
If x <> 2 Then
TestValidate
Exit Sub
End If
MsgBox x
End Sub

OR

Sub TestValidate()

x = InputBox("Enter 2")
If x <> 2 Then
TestValidate
Else
MsgBox x
End If
End Sub



Cheers

Thanks d61Helix. Both codes work altho' I am a bit puzzled about how the first works. Revisit:

Sub TestValidate()

x = InputBox("Enter 2")
If x <> 2 Then
TestValidate
Exit Sub
End If
MsgBox x
End Sub

If an entry other than 2 is entered, the code should loop back recursively before the "Exit Sub" could be executed. Why the code is exited before looping baffles me.

To revisit the issue, when a wrong entry is made, say 5, the "exit sub" should force the code to terminate and thereby forestall any looping (recursively). But this doesn't happen when the code is executed. Seems curious. Any further explanation?