pasar datos del listbox a un documento de word

xldeservicios
01 de Noviembre del 2008
hola a todos.
tengo un problema con un list.
tengo el list con cierto numero de items necesito crear un archivo docx "word".
lo consigo con la sentencia que muestro debajo pero me crea dicho arrchivo, empezando por el ultimo item del list.
como consigo hacerlo bien, gracias de antemano.

Private Sub Command3_Click()

Dim MSWord As New Word.Application
Dim Documento As Word.Document
Dim Parrafo As Paragraph

Set Documento = MSWord.Documents.Add
Set Parrafo = Documento.Paragraphs.Add


MSWord.Visible = True
Dim i As Integer
For i = 0 To lbacumulado.ListCount - 1
Parrafo.Range.InsertAfter lbacumulado.List(i)
Next i
End Sub

axelopez
01 de Noviembre del 2008
porque no llenas una variable primero

For i = 0 To lbacumulado.ListCount - 1
variable = variable + lbacumulado.List(i) + VBCRLF
Next i

Parrafo.Range.InsertAfter variable