Originariamente inviato da DeBe99
Questo funziona solo se il numero è minore di 10. Prova cosi, ti estrai parte intera e decimale.

[CODE]
Dim nInt As Integer
Dim nDec As Double

nInt = CInt(Numero)
nDec = CDbl(Numero - nInt)
[CODE]
scusa ma perchè il mio funziona solo se minore di 10?????

prendo il primo carattere con il left e prendo tutti i caratteri alla destra della posizione 2 on il right....
:gren: