Thanks! It finally worked! I changed your code a little bit:

Dim sValues As String
rtbCoverLetter.LoadFile "C:\Temp.txt"
staffCount = lstSelected.ListCount

For idIndex = 0 To staffCount - 1
sValues = sValues & Chr(10) & lstSelected.List(idIndex)
Next

rtbCoverLetter = Replace(rtbCoverLetter.Text, "Helen", _
sValues, 1, 1, vbTextCompare)

*******************************
I'm just obezyanka. I guess, you speak Russian?