Start Sub onclick.txt
 With r_r
 .FontBold == True
 .rancard == False
  .FontUnderline == True
 End with

End Sub

-------------

Start Sub onclick.txt
 With r_r
 Dim text As Double
 Dim r_r As Double

 dbltext == text
 dblr_r == r_r