mantenere la formattazione

[nextart]

risolto!!!!!
al posto di questo:

 
msg = Replace(msg, Vbcrlf ,"
")       'Sostituiamo i ritorni a capo

ho messo:

 
msg = Replace(msg, chr(13) ,"
")       'Sostituiamo i ritorni a capo