Primero deberias pensar en un algoritmo y despues pasarlo a codigo. Podria ser comprobando si los dos numeros son divisibles por un numero, por ejemplo por 2, si son divisibles, hacer la division y seguir haciendo la comprobacion hasta que no sean divisibles, luego ir incrementando el divisor (2) y hacer el procedimiento anterior. El divisor lo iras incrementando mientras que sea menor o igual al menor de los dos numeros(numerador y denominador).
Private Sub Simplificar(ByRef Numerador As Long, ByRef Denominador As Long) Dim Divisor As Long Divisor = 2 Do While (Divisor <= Numerador) And (Divisor <= Denominador) If (Numerador Mod Divisor = 0) And (Denominador Mod Divisor = 0) Then Numerador = Numerador / Divisor Denominador = Denominador / Divisor Else Divisor = Divisor + 1 End If Loop End Sub