Visual Basic - error al calcular en vb6

Hola soy nuevo en este foro, soy estudiante y nos estan enseñando programacion basica en Visual Basic 6

y tengo un problema con la un boton que me calcula varias operaciones aritmeticas

les explico

esta es mi formula en un solo boton

Private Sub calcular_Click()

subtotal.text= va l(horastrabajadas.text) + val (gastosdiarios.text)
iva.text= subtotal.text * 0.16
total.text= val (subtotal.text) + val(iva.text)

end sub

la primera vez que le doy calcular me calcula todo bien, pero al momento de volver a calcular con las mismas cantidades me da una cantidad muy diferente

alguien me puede decir como solucionarlo??

Gracias!!

he probado el código y si funciona correctamente con 4 textbox (horastrabajadas, gastosdiarios, subtotal e iva respectivamente) y un label para el total (total.caption)

Private Sub calcular_Click()

subtotal.Text = Val(horastrabajadas.Text) + Val(gastosdiarios.Text)
iva.Text = (Val(subtotal.Text) * 16) / 100
total.Caption = Val(subtotal.Text) + Val(iva.Text)

End Sub

Al apretar nuevamente el boton calcular no sucede nada sigue el resultado igual

Es algo sencillo


El Clng es para convertir una cadena a un tipo long
El Cstr es para convertir un numero a cadena, si es que mal no recuerdo en VB6, es que ya no lo uso mas de 15 años, y esto lo hice desde este editor de la página.

Saludos