Mandar Datos de Vb6 a Word

Primero debes añadir la referencia a la librería Microsoft Word 9.0 Object Library.

Luego tienes que poner este código:

'Objetos de Word
Dim wdApp As Word.Application
Dim myDoc As Word.Document
Dim p1 As Paragraph
Dim cadena As String

Set wdApp = New Word.Application 'Crea la aplicación Word
Set myDoc = wdApp.Documents.Open(App.Path & "\documento.doc")
'Si el archivo no existe y quieres crearlo pon:
Set myDoc = wdApp.Documents.Add(App.Path & "\documento.doc")
Set p1 = myDoc.Paragraphs.Add 'Crea un párrafo para añadir texto al documento

'Especifica el tamaño y la fuente de letra:
myDoc.Words.Item(myDoc.Words.Count).Font.Name = "Times New Roman" 'Tipo de fuente
myDoc.Words.Item(myDoc.Words.Count).Font.Size = 10 'Tamaño de fuente

cadena = TextBox1 & " " & TextBox2 & " " .... & TextBoxN

p1.Range.InsertAfter (cadena) 'Inserta el párrafo al final del documento

Al final cierra los objetos utilizados:
Set p1 = Nothing
Set MyDoc = Nothing
Set wdApp = Nothing

Espero que te sirva de ayuda...