Variabili e caselle di testo, aiuto

[dvcappie]

un piccolino aiuto per favore...

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

Private Sub Command1_Click()
var = Text1.Text
tipo = VarType(var)
intMsg = MsgBox("La variabile è di tipo " & tipo)
End Sub


Praticamente volevo fare una piccola cosa...
inserendo un valore in una casella e premendo il command button, doveva uscire(almeno queste erano le intenzioni)un msgbox che mi diceva la variabile (che doveva essere cambiata con il cambiare del textbox)di che tipo era...se una stringa o qualche altra cosa...prechè mi dice sempre che è una stringa...grazie a tutti.

Davide

[vonkranz]

Perche' in var ci finisce sempre un testo:
qualsiasi cosa scrivi nel textbox (anche se metti dei numeri) il contenuto viene "trasformato" al momento dell'assegnazione in una sequenza di caratteri ASCII.
Ciao.

[sebamix]

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