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