Dim x,y,aa As Double
x=main.dblbch
y=dblhyp
[color=red]aa=x/y[/color]
txtclosure.Text =txtclosure.Text & " Perimeter Length = " & _
NumberFormat2(main.dblBch, 0,5,5,False) & CRLF & _
"Precision of closure = 1 in " & [color=red]x/y [/color]& CRLF <<<<<<< throws syntax error
"Precision of closure = 1 in " & [color=red]aa[/color] & CRLF <<<<<<<<this works