[VB6] Arrotondare per difetto un valore

[RastaRego]

Buon di a tutti...
Domandina molto semplice..

Come posso fare ad arrotondare per difetto un valore che mi trovo in una text box?
Esempio:
La mia text1.text vale 2.51, io vorrei che mi diventasse 2.

Grazie miile!!

Bye bye bye bye..

[michele79]

Prendi tutti i caratteri prima del punto:

text1.text.subString(0,".")