Private Function Init_Table(NumRows0 As Integer, NumColumns0 As Integer, ByRef Table1 As Table)
    Set myRange = ActiveDocument.Range(0, 0)
    Set Table1 = ActiveDocument.Tables.Add(Range:=myRange, NumRows:=NumRows0, NumColumns:=NumColumns0)
    Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
    Table1.AutoFitBehavior (wdAutoFitWindow)
    Table1.Borders.Enable = True
    Init_Table = 0
End Function


Private Sub XpathButton_Click()
    OutputTextBox.Text = ""
    Dim XPathRequest As String
    XPathRequest = RequestTB.Text
    Dim XpathResponse As IXMLDOMNodeList
    Dim XDoc As New MSXML2.DOMDocument60
    XDoc.Load (InputFileTextBox.Text)
    For Each Node In XDoc.SelectNodes(XPathRequest)
        OutputTextBox.Text = OutputTextBox.Text & Node.Text & vbCrLf
    Next Node

    Dim Table1 As Table
    Dim Result As Integer
    Result = Init_Table(3, 4, Table1)

    For i = 1 To 3
        For j = 1 To 4
            Table1.Cell(i, j).Range.Text = "Simple text"
        Next j
    Next i



End Sub