Respuestas

2014-01-30T21:22:31+01:00
Estimado espero te pueda servir este código.

VN = Val(Me.txt1.Text) 'Valor Numerador
VD = Val(Me.txt2.Text) 'Valor Denominador
For i = 2 To Val(Me.txt1.Text)
        If (((VN Mod i) = 0) And ((VD Mod i) = 0)) Then
            VN = VN / i
            VD = VD / i
            i = i - 1
        End If
Next i
MsgBox VN & " / " & VD