Visual Basic - Multiplicación Visual Basic

Tengo un problema con Visual Basic:
Intento que se me multipliquen unas cantidades, el problema viene al hace la multiplicación, me redondea y no me salen los decimales.

Importe1.Text = Val(Cantidad1.Text) * Val(Precio1.Text)

Me podríais tirar una manita.

Salu2

IMPORTE1 = CANTIDAD1 * PRECIO1
Dim numero As Double
numero = IMPORTE1
IMPORTE1 = Format(numero, "#####.00")