Buenas tardes, estuve checando los foros en busca de solucion pero no encontre nada, bueno les comento mi caso hace poco empece a estudiar lo de programar empece con VB 6.0 soy nuevo en todo lo que es programacion y estoy haciendo un proyecto pero me he estancado, lo que quiero hacer es exportar de unos listbox a word tengo tres listbox uso este codigo:

Dim MSWord As Object
Set MSWord = CreateObject("Word.Basic")
MSWord.FileNewDefault
MSWord.FontSize 18
MSWord.Insert List1.Text
MSWord.Insert List2.Text
MSWord.Insert List3.Text
MSWord.Insert Label4.Caption
MSWord.AppMaximize

Lo manda a word en una nueva hoja eso esta bien pero quiero separar las listas y solo me captura lo que esta seleccionado no se cual sea mi error y disculpen soy nuevo y estoy tratando de entender gracias de antemano espero puedan ayudarme...