Curso VBA-4

gistfile1.txt

Private Sub CommandButton1_Click()
    tdolares.Text = “”
    tpesos.Text = “”
End Sub

Private Sub tdolares_Change()

End Sub

Private Sub tdolares_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    tpesos = Val(tdolares) * 500
End Sub

Private Sub tpesos_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    tdolares = Val(tpesos) / 500
End Sub