[Resolvido]Formatar variável com parágrafos e inserir em campo memo, mantendo a formatação em linhas

Amigos... estou aplicando valores a uma variável, sendo que cada registro adiquirido a cada loop desejo inserir em linhas na variável e da mesma forma que fique no campo memo.

Observem que a instrução SQL é carregada de acordo com as ID_Menssagem que estão no campo txtMenssagem
Ex.: txtMenssagem = 1,2,3,4
Então a SQL me retorna os respectivos registros.

StrSQLMens = "SELECT * FROM tblMenssagem WHERE ID_Messagem In (" & Me.txtMenssagem & ")"

Set Db = CurrentDb
Set RsMens = Db.OpenRecordset(StrSQLMens)

'=====================================================
'Carrega a variável com as menssagens correspondente, observe que a Variável fica em linhas
'Registro 1
'Registro 2
'Registro 3
'Registro 4

Do While Not RsMens.EOF
StrMens = StrMens & vbCrLf & RsMens!cpMenssagem
MsgBox StrMens
'StrMens = StrMens & RsMens!cpMenssagem

RsMens.MoveNext
Loop
'-----------------------------------------------------

DoCmd.RunSQL "INSERT INTO CNR1(cpQuadroMensagens )" _
& " Values(""" & StrMens & """ );"


O que preciso é que ao inserir a variável no campo CpQuadroMenssagem, ela seja exibida no form da seguinte forma:
Registro 1
Registro 2
Registro 3
Regostro 4

No entando está sendo exibida assim:
Registro 1 Registro 2 Registro 3 Registro 4


Como fazer para resolver isto?

Cumprimentos.

Boa tarde, Piloto
Parece-me estar bem. Inicialize a variável

StrSQLMens = "SELECT * FROM tblMenssagem WHERE ID_Messagem In (" & Me.txtMenssagem & ")"

Set Db = CurrentDb
Set RsMens = Db.OpenRecordset(StrSQLMens)

'=====================================================
'Carrega a variável com as menssagens correspondente, observe que a Variável fica em linhas
'Registro 1
'Registro 2
'Registro 3
'Registro 4
StrMens=""
Do While Not RsMens.EOF
StrMens = StrMens & vbCrLf & RsMens!cpMenssagem
MsgBox StrMens
'StrMens = StrMens & RsMens!cpMenssagem

RsMens.MoveNext
Loop
'-----------------------------------------------------

DoCmd.RunSQL "INSERT INTO CNR1(cpQuadroMensagens )" _
& " Values(""" & StrMens & """ );"
Abraço,

Realmente... Abri o relatório agora e saiu a contento...

Fiz como recomendou.

Grato Mestre!