Select Case VarType(Range("b2").Value)
Case vbInteger, vbLong, vbSingle, vbDouble, vbCurrency, vbDecimal
  〜
End Select