Hola. Para acortar los decimales de una expresión debes usar la función Round. Ejemplo:
Código:
Private Sub Command1_Click()
MsgBox Round(85.4321, 2)
End Sub
Con el parametro NumDigitsAfterDecimal se define cuantos decimales queres mostrar.
Saludos. Lucas