sol_18

blankcorrea respondió: Hay varias formas de hacer el procedimiento que necesitas el más sencillo es el que te envío a continuación: Dim a As Single Dim b As Single Dim c As Single a = Val(Me.Text1.Text) b = Val(Me.Text2.Text) c = Round(a / b, 2) Me.Text3.Text = c