Select Case not picking up number

[jrwrangler]

I am using an input box with select case. I want it to let values that are under 100 and end in a zero to proceed to a msgbox that offers a reminder. For Any values that do not have a zero as the second digit to pop up an error message that lets them retry by going through the code again. When I enter values like 123 it still proceeds. Values like 12 gives me the first message box. I don't know why this is

ReTryIt2:
NumShares = Application.InputBox(prompt:="Please Enter The TOTAL Number of Shares Being Covered Today: " Title:="Shares Being Covered TODAY")
Select Case NumShares
Case Is < 100 And Mid(NumShares, 2, 1) = 0
MsgBox ("Ok, Looks Good.....")
Case Mid(NumShares, 2, 1) <> 0
MsgBox ("This Is An Invalid Entry.Please Retry")
GoTo ReTryIt2
End Select

 

[ArthriticPanda]

Force the result as integer then it should work;

Numshares = Application.InputBox(prompt:="Please Enter The TOTAL Number of Shares Being Covered Today: ", Title:="Shares Being Covered TODAY")
 
 Numshares = Int(Numshares)
 
 Select Case Numshares
 
 Case Is < 100 And Mid(Numshares, 2, 1) = 0
    MsgBox ("Ok, Looks Good.....")
 
Case Is > 0 And Mid(Numshares, 2, 1) <> 0
    MsgBox ("This Is An Invalid Entry.Please Retry")
  Goto ReTryIt2

 End Select

 

[AD_Taylor]

Few points,

1) No code tags is always bad on this forum
2) Using GoTo like this is bad coding practise
3) I don't think Select Case can be used like that, but I like to be proven wrong.

With those in mind give this a try:

Dim NumShares As Integer
Dim bGood As Boolean


bGood = False


Do While bGood = False
    NumShares = Application.InputBox(prompt:="Please Enter The TOTAL Number of Shares Being Covered Today: ", Title:="Shares Being Covered TODAY")
    
    If NumShares < 100 And Right(CStr(NumShares), 1) = "0" Then
        MsgBox "OK Looks Good"
        bGood = True
    Else
        MsgBox ("This Is An Invalid Entry.Please Retry")
    End If
Loop