TextToColumns translating VB to Lotusscript

I am attempting to do a TextToColumn in MS Excel. Need assistance translating this VB codeinto Lotusscript.

Selection.TextToColumns Destination:=Range(“H2”), DataType:=xlFixedWidth, _

FieldInfo:=Array(Array(0, 1), Array(5, 1), Array(13, 1), Array(22, 1), Array(29, 1)), _

TrailingMinusNumbers:=True

This is my attempt, but it’s erroring on the With statement (Instance member TEXTTOCOLUMNS does not exist):

With xlApp.Selection.TextToColumns

.Destination = xlSheet.Range("H2")

.DataType = xlFixedWidth

.FieldInfo = "Array(Array(0, 1), Array(5, 1), Array(13, 1), Array(22, 1), Array(29, 1))"

.TrailingMinusNumbers = True

End With