>I already did but the problem is when I format and is formatted as general and no zeros on the left, so what I want is to put the text to this column before passing the data
You might try some version of.........
oAS = oXL.Application.ActiveSheet
oAS.Columns(lnColumn).Select&& Allow character fields that are all numbers to be formatted as Text (keeps char format and leading zeros)
oXL.Selection.NumberFormat = "@"