Visual Basic - Problema con redondeo

Hay alguna manera de evitar que con format no haya redondeo o por lo menos obtener solo dos decimales de un resultado pero no redondeado???

Ejemplo:

45,45 / 12,3 = 3,6951219512195121951219512195122

La idea es que tome solo dos decimales y el resultado sea este: 3,69

Pero lo que obtengo con funciones de formateo es: 3,70

No puedo redondear pues se trata de un programa contable...

Sugerencias???

No me expliqué bien a esto se suma que debo usar format para poder dar este formato a un numero: 0.000,00

Para lo cual tengo esta funcion

Public Function FormatoDecimal(ByVal texto As String) As String
If texto = "" Then
texto = "0"
End If

If CDbl(texto) > 999 Then
FormatoDecimal = Format(CDbl(texto), "#0,000.00")
Else
FormatoDecimal = Format(CDbl(texto), "#0.00")
End If
End Function

Creo que esto es lo que buscas, verás que es bastante más sencillo.

Format(Int(Val(texto) * 100) / 100, "#,##0.00")

Lo primero es incluir Val() que nos convierte texto en número, si texto = "" Val devuelve 0.

Lo siguiente es utilizar Int(x*100)/100, obtenemos la parte entera del número pero como multiplicamos por 100 conservamos los 2 decimales. Luego dividimos para obtener el número original sin redondear y con los 2 decimales.

Por último con "#,##0.00" conseguimos todos los resultados deseados.

Con # podemos generar una máscara en la que se incluye el punto decimal SOLO si el número es mayor que 999.

Con 0.00 en cualquier caso incluirá los ceros donde queremos.

Gracias Igor

Buena respuesta...

Saludos y Feliz Navidad!!