problemas con la funcion Val

[kakinets]

hola uso este codigo

Código [Seleccionar] Expandir

Text6.Text = Val(Text4.Text) * Val(Text5.Text) / 100
Text7.Text = Val(Text4.Text) + Val(Text6.Text)

la suma del text6 con el text4 (si nosotros ponemos 20 en el text4) me tendria que dar 24.2 y me da 24.teniendo encuenta que uso 3 text 4,5,6 y este codigo se encuentra en change del text4

¿ Que carajo pasa?¿ por que no me suma los decimales?

            Saludos KakiNets

[kakinets]

Listo solucione el problema.... Dejo el codigo por si alguien lo quiere

Código [Seleccionar] Expandir

Dim a As Single
Dim b As Single
Dim c As Single
a = Val(Text4.Text)
b = Val(Text5.Text)
c = a * b / 100
Text6.Text = c
Text7.Text = a + c