Построчное добавление данных в Word - Visual Basic .NET

Формулировка задачи:

Привет Всем! На форме есть Textbox он добавляет данные (пример, Названия книг) в документ, как сделать так, чтобы при следующем добавление, данные добавлялись в документе в следующую строку и т.д?

Решение задачи: «Построчное добавление данных в Word»

textual
                            Листинг программы 
                        

                                Public Sub AddLineToWORD(TextLine As String, FileName As String)
        Dim WD As Object, WA As Object = CreateObject("Word.Application")
 
        If IO.File.Exists(FileName) Then : WD = WA.Documents.Open(FileName)
        Else : WD = WA.Documents.Add
        End If
 
        WD.Content.InsertAfter(vbCrLf & TextLine)
 
        If IO.File.Exists(FileName) Then : WD.close(True)
        Else : WD.SaveAs(FileName) : WD.Close()
        End If
 
        WA.Quit()
        GC.Collect()
    End Sub
                        