Veran.. estoy desesperado. No se que hacer.

Tengo un programita hecho por mi , que deve hacer la sencilla operacion de sumar un valor de un textbox con otro valor de otro textbox i dividir ese valor por el valor de otro textbox.

Bien , todo normal , pero cuando deberia dar valores tipo -0.0925 me da -9,25000000000002E-02

La operacion es la siguiente: (-22 + 21.63) / 4

No siempre son esos valores , pero ya no se como hacer para qu eme de el valor real.. es un programa para resolver equaciones de segundo grado siguiendo la formula..pero esque el valor final de la x da mal... u.u

Que puedo hacer?
He provado declarando el valor final como variable poniendo que es bolean o cosas asi.. pero nada sigue dando igual.

Os dejo el codigo

Private Sub Command4_click()

txtxpos.Visible = True
txtxpos = (Val(txtb4.Text) + Val(txtraiz2.Text)) / Val(txtA4.Text) ' -b + (..)

End Sub

 
Private Sub Form_Click()
    Dim vResultado As Double
    vResultado = CDbl(FormatNumber((CDbl(Text1.Text) + CDbl(Text2.Text)) / CDbl(Text3.Text), 4))
    MsgBox vResultado
End Sub