Passing FieldInfo to TextToColumns

Trying to convert an Excel column containing fixed width text to columns using COM server.

How to pass FieldInfo?

 

           invoke ExcelObject "getRange" using z"A:A" returning CellRange.

           invoke olesup "setNamedParameters" using by value 1 size 3

           invoke CellRange "TextToColumns" using

                                         by reference z"Destination"

                                         by value CellRange

                                         by reference z"DataType"

                                         by value xlFixedWidth

                                         by reference z"FieldInfo"

                                         by reference w-field-info.

 

What I am trying to do looks like this in VBA:

     Columns("A:A").Select

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _

        FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(8, 1), Array(52, 1), Array(56, 1), _

        Array(67, 1), Array(107, 1)), TrailingMinusNumbers:=True