Hola,solamente tenes que usar la funcion
Formatnumber y decirle los decimales que queres despues de la coma,mira este simple ejemplo:
Código:
Private Sub Form_Load()
Dim numero1, numero2, nuemro3 As Double
numero1 = 1.5
numero2 = 1.6
numero3 = 1.7
MsgBox FormatNumber(numero1 + numero2 + numero3, 2, vbFalse)
End Sub
y una aclaracion fijate que en el primer post dijiste que el resultado es 4.7 y es en realidad 4.8
saludos.