Me.Tables.Add(Me.Range(Start:=0, End:=0), NumRows:=10, NumColumns:=5)
        Dim x() As String = {"Hannover", "Hamburg", "Frankfurt", "München", _
          "Köln"}
        Dim tbl As Word.Table = Me.Tables(1)
        For i As Integer = 1 To 5
            Dim c As Word.Cell = tbl.Cell(1, i)
            c.Range.Text = x(i - 1)
            c.Column.AutoFit()
        Next