Visual Basic - redondeo numeros ayuda %

Hola saludos

mi problema es el siguente

un calculo simple ejemplo

tengo una texbox1 texbox1 texbox1

texbox1 aqui el numero que quiero sacar el porciento

texbox2 el porciento % que quiero sacar en mi caso es 0.07

texbox3 el total

bueno si saco el porciento de un numero entero ejemplo 5 el total seria 0.35 . tobo bien asta aqui

ahora empiesa lo malo

si quiero sacar el porciento de 5.55

pasa lo siguente da un total de 0.3885 que se supone que redonde a 0.39

cosigo fuente

Private Sub Command1_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub

Tu problema se resolverá utilizando csng o cdbl en vez de val.