Пошаговое добавление строк в Word документ

Imports WRD = Microsoft.Office.Interop.Word
Public Class Form1
    Private wApp As WRD.Application
    Private wDoc As WRD.Document
    Private counter As Integer
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        wApp = New WRD.Application
        wDoc = wApp.Documents.Add
        wApp.Visible = True
    End Sub
    Private Sub btnAddText_Click(sender As System.Object, e As System.EventArgs) Handles btnAddText.Click
        If counter = 0 Then
            'пишем начальные данные (таблицы и др.)
            wDoc.Range.InsertAfter("aaaaaaa 111111111111 22222222222" & vbCrLf)
            counter += 1
        Else
            wDoc.Range.InsertAfter(TextBox1.Text & vbCrLf)
        End If
    End Sub
End Class

wDoc.Tables(1).Cell(2, 2).Range.Text = "пример1" & vbCrLf & "пример2" & vbCrLf & "пример3"
wDoc.Tables(1).Cell(2, 2).Range.Select()
With wApp.ListGalleries(2).ListTemplates(1).ListLevels(1)
    .NumberFormat = "%1."
    .StartAt = 1
End With
wApp.ListGalleries(2).ListTemplates(1).Name = ""
wApp.Selection.Range.ListFormat.ApplyListTemplate(ListTemplate:=wApp.ListGalleries(2).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:=0, DefaultListBehavior:=2)