ciao alka, con il codice da te postato non riesco a realizzare quello che volevo

codice:
  Where = InStrRev(txtChat.Text, strNome, -1, vbTextCompare)

       With txtChat
                .SetFocus
                .SelStart = Where - 1
                .SelLength = Len(strNome)
                .SelBold = True
                .HideSelection = False
            End With
strNome effettivamente viene messo in neretto ma poi quando rivado a fare un'operazione del genere

txtChat.text =txtchat.text.....

perdo la formattazione del testo che avevo dato....