Enviar texto do ListBox no outlook

[milton]

Ola pessoal,
Tenho esse código para envio de email pelo outlook que funciona perfeitamente, a unica coisa que preciso é colocar o texto da ListBox no corpo do email depois da mensagem.
Alguém pode ajudar?

Dim Destinatario As String, assunto As String, mensagem As String
On Error GoTo fim
assunto = TxtAssunto
Destinatario = TxtEmailDestinatario
copia = '"OUTROEMAIL"

mensagem = "Olá " & TxtContato & "!" & vbCrLf & vbCrLf & _
"Segue a relação de materiais para retrabalho que estou enviando pelo seu motorista." & vbCrLf & _
"Por favor, responder este email para TODOS, informando a previsão de retorno." & vbCrLf & _
"Obrigado!"

'Pula uma linha
'Aqui vai o texto da listbox (a listbox tem 8 colunas e as linhas variam conforme a pesquisa)

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.Application.createitem(olMailItem)

With objMail
.Subject = assunto
.To = Destinatario
.cc = copia
.HTMLbody = mensagem
.display
.send
End With

Set objOutlook = Nothing
Set objMail = Nothing

fim: End