Ayuda Novato

[XilFe]

Hola!
Es la primera vez que intento hacer algo con VB6, la verdad es que no tengo idea de programacion, pero me gustaria aprender, almenos para hacer programas sencillos como el que tengo entre manos.

El problema con el que me encuentro es el siguiente:
tengo dos hscrollbar
HScrollbar1 min13 max19 y esto se refleja en txtpin
HScrollbar2 min21 max30 y esto se refleja en txtcor
el resultado de la division se refleja en txtRD

el problema que tengo es que cuando le mando al boton 1 hacer esto
txtRDVel.text = Val(txtRD.text) * (75 / 19) * (33 / 17)
en txtRDVel no se refleja bien la operacion, pues solo me coje el numero entero de txtRD y no coje los decimales

Un ejemplo supongamos que HScrollbar1 es 13 y HScrollbar2 es 30 el resultado de la division es 30/13=2,30769230
esto me sale en txtRD y esta bien, pero en txtRDVel me tendria que salir 17,6827815 y me sale 15,3250773 pues solo me coje el numero entero 2 y ovbia lo que hay detras de la coma
os dejo el codigo para que lo mireis

Private Sub Form_Load()
Dim txtRD As Currency
Dim txtRDVel As Currency
End Sub

Private Sub HScroll1_Change()
txtPin.text = HScroll1.Value
txtRD.text = Val(HScroll2.Value) / Val(HScroll1.Value)
End Sub

Private Sub HScroll2_Change()
txtCor.text = HScroll2.Value
txtRD.text = Val(HScroll2.Value) / Val(HScroll1.Value)
End Sub

Private Sub HScroll3_Change()
txtVel.text = HScroll3.Value
End Sub

Private Sub Exit_Click()
End
End Sub

Private Sub Command1_Click()
Dim text As Currency
txtRDVel.text = (75 / 19) * (33 / 17) * Val(txtRD.text)
End Sub

Muchas gracias