Guru do Excel e Power BI

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 abaixo 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 = ""

mensagem = "Olá " & TxtContato & "!" & 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!"

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