Possibly something like this
Code:
strText = Replace(strText, vbCrLf, vbcrLf & " - ")
That should give a - at the start of each line
If you want a bullet, then use Chr(149)
NOTE: tested using the function below but not using rich text
Code:
Function TestCode()
strText = "Hello" & vbCrLf & "World"
' strText = Replace(strText, vbCrLf, vbCrLf & " - ")
strText = Replace(strText, vbCrLf, vbCrLf & Chr(149) & " ")
Debug.Print strText
End Function
You will almost certainly need to replace vbcrlf with something else for a carriage return
E.g. Chr(13)&Chr(10) or another rich text equivalent. Possibly </DIV>???