Visual Basic - Funcion que saque los ceros despus de la coma

Alguien conece que Funcion saca los ceros despus de la coma, es decir, si viene 45.60 me devuelva 45 .
Que no sea Cint() ni format(numero,"0") porque estas redondean para arriba segun los decimales, yo necesito que me devuelva solo lo que esta a la izquierda _parte entera) de la coma.

Gracias

pasa el dato a cadena y con estas órdenes puedes hacerlo

p=instr(1,cadena,",") entre comillas estará la coma o el punto según pongas la separación de decimales
valor=left(cadena,p-1)

saludos