RTB = difficult

Couldn't find an answer really,

How can i not lose my formatting when i alter the richtextbox :o?

VB Code:

For i = 1 To Len(strData)
        RichTextBox1.SelStart = Len(RichTextBox1.Text)
        RichTextBox1.SelLength = 0
        If Mid(strData, i, 1) = Chr(2) Then
            'BoldOn = Not BoldOn
            RichTextBox1.SelBold = Not RichTextBox1.SelBold
            'Debug.Print "BOLD " & CStr(BoldOn) & ParseData.strBody
        Else
            RichTextBox1.SelText = Mid(strData, i, 1)
        End If
    Next

It bolds the correct data, then subsequent data is correctly bolded, whilst the current stuff loses its formatting :p

How can i prevent this?

nevermind, fixed :p