I am parsing fixed width data with the following code:

Range("a1", ActiveCell.SpecialCells(xlLastCell)).Select
Selection.TextToColumns Destination:=Range("A1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(11, 9), Array(12, 1))

The data in the last array is numeric. I need it to be brought in as text
so as not to loose the leading zeros. How do I apply xlTextFormat?

Thanks in advance!