How to format a textbox to always be a bullet list - either when text typed or copied into textbox

[vbclueless]

My form contains a textbox (with text format Rich Text) and it is a memo field from a table (on the table the field is also Rich Text). The user will either type text into the textbox or copy and paste from another textbox. At the moment the user has to select all the text and then on the ribbon's Rich Text options select to create bullets. How can my textbox be formatted to always and automatically be bulleted?

[isladogs]

Possibly something like this

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

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>???

[vbclueless]

Thank you! That did the job.

[isladogs]

Excellent. Did you have to modify it for use with rich text?