VBA automatically gets fractions

'divides a positive number by Y to return an integer or fractionFunctionRFs (ByValX as Integer) as String    Ifx =0  ThenRFs=0        Exit Function    End If    DimDiv_result, Div_remain, y, I as Integery=144Div_result= x \y Div_remain= XModyIfDiv_remain =0  ThenRFs= x/yExit Function    Else        DimZ as Integer        IfDiv_remain > Y ThenZ=yElseZ=Div_remainEnd If                 fori = Z to 2 Step-1            IfDiv_remainModi =0  andYModi =0  Then                IfDiv_result >0  ThenRFs= Div_result &" + "& div_remain/i &"/"& Y/IElseRFs= div_remain/i &"/"& Y/IEnd If                Exit Function            End If        NextIIfDiv_result >0  ThenRFs= Div_result &" + "& Div_remain &"/"&yElseRFs= Div_remain &"/"&yEnd If    End IfEnd Function

can be called directly in the Excel macro in the VBA language, such as 290 will get 2 + 1/72

VBA automatically gets fractions