Bueno, creo que esto necesita una perfección para que este más pulido, pero ahí va:
Precio = Round(Precio, 2+0.5)
Text3.Text = Round(Text1.Text, 2 + 0.5)
El 0.5 es para ver si redondea el siguiente numero si es =>5, pero por ahí va la cosa del redondeo.
Bueno.
