Option Explicit
Dim var As Variant
Dim tipo As Variant
Dim intMsg As Integer

Private Sub Command1_Click()
var = Text1.Text
if IsNumeric(Var) then
'...
elseif IsDate(Var) then
'...

End Sub