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