resultado en un txt

[lsmaniahotmail.com]

buenas a todos , pido disculpas por preguntar  ta lves cosas elementales , ya con la practica ire aprendiendo . la cuestion que me toca hoy es saber cual seria la instruccion 

para que en un txt del formulario (todod datos numericos) se llene como resultado de la division de otros 2 txt , intente con:

Private Sub txtValorPresupUsd_Change()
 Dim Valor1 As Double
 Dim Valor2 As Double
 Dim valor3 As Double

Valor1 = Val(txtValorPresup.Text)

valor3 = Val(txtCotiz1.Text

If txtValorPresup.Value <> "" Then

txtValorPresupUsd.Value = Valor1 / valor3

End If
  
   txtValorPresupUsd.Value = Format(txtValorPresupUsd, "#,##0.00")

End Sub
 

 

[Antoni]

Private Sub txtValorPresupUsd_Change()
Dim ValorPresupUsd As Double
Dim ValorPresup As Double
Dim Cotiz1 As Double
'--
If IsNumeric(txtValorPresup) And IsNumeric(txtCotiz1) Then
   ValorPresup = CDbl(txtValorPresup)
   Cotiz1 = CDbl(txtCotiz1)
   If Cotiz1 > 0 Then
      ValorPresupUsd = ValorPresup / Cotiz1
      txtValorPresupUsd = Format(ValorPresupUsd, "#,##0.00")
   End If
End If
End Sub

 

[lsmaniahotmail.com]

gracias antoni por tu aporte,sigo adelante con mi proyecto a ver si resulta.gracias gracias

[lsmaniahotmail.com]

HOLA ANTONI: No tuve el resultado esperado, por ej  al digitar txtA y txtB deseo que en txtC aparesca  el resultado de la division entre txt1 y txt2  y ademas los tres txt expresados  con dos decimales sin ejecutar ningun comando . Bueno espero que se entienda dado que con la instruccion que me aconsejaste no aparece el resultado en txt3

[lsmaniahotmail.com]

perdon en lugar de txt1 y txt2 debe leer txtA y txtB