Rich Text Control SelBold settings

[magician]

Hi
Im having trouble setting the bold and 'not' bold properties in a rich text
control.
All the text in the control is entered through code and the bold property is
different for different sections.
I am using the selstart and sellength to set the selection then either
selbold=true or false to set the bold.
I have debug.printed the selections and true false to see if it is getting
the correct selections and true or false.. but it is no setting the nonbold
text to normal.. everything is appearing the same.

Here is some sample code as procedure:
ps I found i had to keep th start point as a static variable because
whenever text was added through code it would reset SelStart to 0

---------------------------------------------------------------------------
Private Sub subBold(varState As Boolean)

Static varInsertPoint

With frmMain.rtfInput
.SelStart = varInsertPoint
.SelLength = Len(.Text) - varInsertPoint
.SelBold = varState
Debug.Print varState & .SelText
varInsertPoint = Len(.Text)
End With

End Sub
----------------------------------------------------------------------------
--

Any help is very much appreciated :)