To make the above code work with variants and negative numbers, there has to be some changes:
VB Code:
  1. Dim V As Variant
  2. V = -1500
  3. Select Case V
  4.     Case "-" To "9"
  5.         MsgBox "Number"
  6.     Case Else
  7.         MsgBox "No Number"
  8. End Select

But now it lets through strings that begin with a "/"..

Kinda surprising that "Case True, False" works so well..