The Computer Browser service terminated with the following error: 
This operation returned because the timeout period expired. 

For more information, see Help and Support Center at http://go.microsoft.com/fwlink/events.asp.

Sub SetKeyword(strKey As String, RtxtName As RichTextBox)
    With RtxtName
        FindText = InStr(1, RtxtName.Text, strKey, vbTextCompare)
        If FindText > 0 Then
            .SelStart = FindText - 1
            .SelLength = Len(strKey) - 1
            .SelBold = True
            .SelItalic = True
            .SelColor = QBColor(2)

            .SelStart = Len(.Text)
            .SelColor = vbBlack

            .SelStart = Len(.Text)
            .SelColor = vbBlack
            .SelBold = False
            .SelItalic = False
        End If
    End With
End Sub