Dim s As String
Dim ss As String
Dim i As Integer
Dim m As Integer

For i = 1 To n
If i = m Then
s = s & "\b " & ss(i) & "\b0 "
Else
 s = s & ss(i)
End If
Next

msg.TextRTF = "{\rtf1\ansi " & s & "}"