Buen día, Necesito mostrar 1 solo numero de una variable pero sin redondear la cifra.

Implementa y aplica estas funciones en tu aplicación.

'Devuelve el entero más pequeño no menor que POR.
'Ejemplo: Ceiling(1.23) = 2, Ceiling(-1.23) = -1
Private Function Ceiling(ByVal POR As Double) As Long
Ceiling = -Int(POR * (-1))
End Function
'Devuelve el entero más grande no mayor que POR.
'Ejemplo: Floor(1.23) = 1, Floor(-1.23) = -2
Private Function Floor(ByVal POR As Double) As Long
Floor = (-Int(POR) * (-1))
End Function

Espero te sirva

Saludos.

Carlos.!

Fuente:http://mario-reynoso.blogspot.com/2009/01/ceiling-y-floor-en-vb6.html

Pdta.: Pruébalas, no tengo Vb para poderlo hacer personalmente.