Loop Not Stopping

The Loop starts but wont stop. I don't see anything wrong with the code.

Please Login or Register  to view this content.

Thanks

Originally Posted by Dummy99

The Loop starts but wont stop. I don't see anything wrong with the code.
Code:
Private Sub CommandButton1_Click()
Base = InputBox("Enter Base Number")
If IsNumeric(Base) = False Then
MsgBox ("Invalid Entry"), vbCritical
Exit Sub
End If
Cntr = 0
Do While Cntr < Base
Chkp = Chkp & "p"
Chkb = Chkb & "b"
MsgBox (Chkp & "---" & Chkb), vbCritical 'for debug
Cntr = Cntr + 1
MsgBox (Cntr & "---" & Base), vbCritical 'for debug
Loop
MsgBox ("EOJ"), vbCritical
End Sub
Thanks

InputBox returns a string and not a number. And IsNumeric can only check if a variable can be expressed as a number and not if it is a number. eg if ABC = "12"
then IsNumeric(ABC) is True even though ABC is a string and not a number. You will have to first convert the string variable to a number variable and then use it. Something like this

Please Login or Register  to view this content.

Surprisingly For ... next loop will work even if you do not convert it to number.
eg if you say for n= 1 to Base it will work. Apparently For...Next internally converts Base to a number and then use it.

A V Veerkar

Originally Posted by Dummy99

Avveekar,
EXCELLENT!
I knew there was an explanation & I should have thought of the 'numeric' problem myself. It aslo didn't work with an "IF" statement (same reason).
Many thanks,
Dummy99

I am glad that I could be of a little help.

And can we call you by some other name? To address you as Hi dummy sounds odd. Just kidding!!

A V Veerkar