I have a Crystal Reports formula that is a Basic formula that came from the Crystal Reports knowledgebase, but whenever I try to save it I get the error "The remaining text does not appear to be part of the formula."

Why do I get this error? Do I need to do something different within the Crystal Formula because this is Basic syntax? Something missing here? Here's my code. Thanks for a clue. I really appreciate your help.

Dim decInput as number
Dim decimalFraction as number
Dim numerator as number
Dim denominator as number
Dim wholeNumber as number
Dim testNum as number

testNum={@flat_size_l}
wholeNumber=int(testNum)
decInput=round(testNum-wholeNumber,4)
numerator=1
denominator=1
decimalFraction=numerator/denominator

do While(decimalFraction<>decInput)
If(decimalFraction<decInput) Then
numerator = numerator + 1
Else
denominator=denominator+1
numerator=truncate(decInput*denominator)
End If
decimalFraction=numerator/denominator
loop

formula = ToText(wholeNumber,0,"")+"-"+ToText(numerator,0,"")+"/"+ToText(denominator,0,"")