If IsNumeric(TheForm.Text1.Value) Then
If TheForm.Text1.Value < 1 Or TheForm.Text1.Value > 10 Then
MsgBox "Please enter a number between 1 and 10."
MsgBox "Thank you."
MsgBox "Please enter a numeric value."
Hi this code is working well and good.........
If u have doubts here regarding this code u can remind me...