title: How can I make InputBox only accept numbers
body: <p>The code is just asking for the pass rates for 6 different colleges.  The rate must be a value between 1 and 100.</p>
  
  <p>I would like it to only allow numbers.  I have tried using <code>IsNumeric</code>, but I must not be using it correctly.  Here's what I have so far:</p>
  
  <pre><code>For i As Integer = 0 To 5
      passRate(i) = InputBox("Enter the pass rate for " &amp; colleges(i) &amp; " college")
      While passRate(i) &gt; 100 Or passRate(i) &lt; 0
          MsgBox("Error must be a number and be between 0 and 100")
          passRate(i) = InputBox("Enter the pass rate for " &amp; colleges(i) &amp; " college")
      End While
  Next i
  </code></pre>