Visual Basic 6 - eliminare tutti i numeri a destra della virgola

Salve mi potreste dire come devo fare per far i che premendo un pulsante scompaiano tutti i caratteri dopo la virgola?grazie a tutti

usa la funzione cint. esempio:

dim c as double
dim d as integer

c = 3.16
d=cint(c)
'd è uguale a 3

funziona anche copiando il valore di c in d cosi:

d = c, viene fatta automaticamente la trasformazione in intero.
ciao.