Exportação do conteudo da Listbox

Boa noite.

Como proceder para exportar uma consulta do access para listbox.
Apos digitar o codigo o mesmo é carregado com todos os registro dentro da listbox.
Como faço para conseguir exportar para o excel o conteudo que se encontra dentro da listbox

Código:



Private Sub Btn_Exportar_Click()
  Dim Query As DAO.QueryDef
        Set Query = CurrentDb.QueryDefs("csConsultaEntradaSaida")
       
        Query.SQL = Me.Lst_Entrada_Saida.RowSource
        Query.Close
   
        DoCmd.TransferSpreadsheet acExport, , "csConsultaEntradaSaida", "testExport"

Set Query = Nothing
MsgBox "Tabela Exportada com Sucesso!"
End Sub