Ciao fairlie,
non sono uno sviluppatore di questo forum, ma il tipo di aquisizione/formattazione che tu chiedi, viene utilizzata per tante cose.
Il metodo è solitamente lo stesso.

Quando aqcuisisci devi fare un controllo sui caratteri "riservati" e quelli che ritieni utili per la formattazione.
Il modo è semplice:
testo = replace(testo,"'","''")
testo = replace(testo, vbcrlf,"<br>")
testo = replace(testo,"&","@@@")

Quando dovrai "rilascaire" il testo, farai esattamente l'inverso:
testo = replace(testo,"''","'")
testo = replace(testo,"<br>", vbcrlf)
testo = replace(testo,"@@@","&")

Ovviamente il tutto può essere raccolta all'interno di funzioni!

Ciao ;-)