Переместить данные наверх и оставить пустыми, если нет данных

Question

У меня есть flexgrid в VB6, у которого есть данные в столбце 1 и столбце 2, они уже заполнены на основе моего кода других. Как бы то ни было, у меня есть код, который вставляет данные в столбец 3, и это мой код.

Dim objDoc      As MSXML2.DOMDocument
    Dim objNodeList As IXMLDOMNodeList
    Dim objNode     As IXMLDOMNode
    Dim rowscount1  As Integer
    Dim rowcount    As Integer

    Set objDoc = New MSXML2.DOMDocument
    objDoc.async = False
    objDoc.Load App.Path & "\Extracted File\" & Text2.Text & "\content.xml"

    'Return all the segment elements
    Set objNodeList = objDoc.selectNodes("//draw:image")

    'loop through the segment elements and pull what you need

    flex.Cols = flex.Cols + 1

    For Each objNode In objNodeList
        Debug.Print objNode.Attributes.getNamedItem("xlink:href").Text

        With flex

             .Rows = .Rows + 1
              .TextMatrix(.Rows - 1, .ColIndex("3")) = Mid(objNode.Attributes.getNamedItem("xlink:href").Text, 10, Len(objNode.Attributes.getNamedItem("xlink:href").Text))

        End With

    Next objNode
rowscount1 = 0
    Set objNode = Nothing
    Set objNodeList = Nothing
    Set objDoc = Nothing

но вывод такой.

Снимок экрана с выводом

Предполагается, что все данные вместе, но здесь происходит то, что программа создала строку.

Как я могу это исправить? Переместить данные наверх и оставить пустыми, если нет данных.