[VB6] Adding text to RTF without replacing

[JadeWolf324]

basically its for html tags. when i press a button i need it to put <B> and then when i hit it again i need it to say </b>

i have it setup so that the check box click state is recorde as a 1 or a 0. so

case "bold"
 Case "bold"
    If sau.attribbold.Caption = "1" Then
        sau.attribbold.Caption = "0"
        Else
    If sau.attribbold.Caption = "0" Then
        sau.attribbold.Caption = "1"
        Else
    End If
    End If

this is what i have so far. it records the ones and zeros for a very rudimentary tracking system.

but i need to to put the <B> when sau = 1 and </B> when sau = 0.

how could i best go about this?

[elliot]

If sau.attribbold.Caption = "1"
     sau.attribbold.Caption = "0"
     rtf.text = rtf.text & "<b>"
else
     sau.attribbold.Caption = "1"
     rtf.text = rtf.text & "</b>"
end if

?