Searching Text

[lavarock09]

Ah, I now have a problem

I have added Underline

this is my code

Option Explicit
Private Const BOLDSTART = "[//b]"
Private Const BOLDEND = "[///b]"
Private Const UNDERSTART = "[//u]"
Private Const UNDEREND = "[///u]"
Private Sub RichTextBox1_Change()
 
    Dim intStart As Integer
    Dim intEnd As Integer
        intStart = InStr(1, RichTextBox1.Text, BOLDSTART)
    intEnd = InStr(1, RichTextBox1.Text, BOLDEND)
    
    
        End Sub
        
Private Sub Command1_Click()
Dim intStart As Integer
    Dim intEnd As Integer
        intStart = InStr(1, RichTextBox1.Text, BOLDSTART)
    intEnd = InStr(1, RichTextBox1.Text, BOLDEND)
If intStart > 0 And intEnd > 0 Then
        RichTextBox1.Text = Replace(RichTextBox1.Text, BOLDSTART, "")
        RichTextBox1.Text = Replace(RichTextBox1.Text, BOLDEND, "")
        RichTextBox1.SelStart = intStart - 1
        RichTextBox1.SelLength = intEnd - intStart
        RichTextBox1.SelBold = True
        RichTextBox1.SelStart = Len(RichTextBox1.Text)
        RichTextBox1.SelBold = False
    End If
    Dim intStart2 As Integer
    Dim intEnd2 As Integer
        intStart2 = InStr(1, RichTextBox1.Text, UNDERSTART)
    intEnd2 = InStr(1, RichTextBox1.Text, UNDEREND)
If intStart2 > 0 And intEnd2 > 0 Then
        RichTextBox1.Text = Replace(RichTextBox1.Text, UNDERSTART, "")
        RichTextBox1.Text = Replace(RichTextBox1.Text, UNDEREND, "")
        RichTextBox1.SelStart = intStart2 - 1
        RichTextBox1.SelLength = intEnd2 - intStart
        RichTextBox1.SelUnderline = True
        RichTextBox1.SelStart = Len(RichTextBox1.Text)
        RichTextBox1.SelUnderline = False
    End If
End Sub

but it makes some letters after the [///b] bold