problem with leading 0's

[mikeellinas]

I have a macro that imports data from an outside workbook to the active workbook. A problem I am having is that some of the numbers have leading zeroes, then they do not come over. Example: if the number is 099999999, it shows up on the new sheet as 99999999. Any ideas how I can get the leading zero to show up when importing? Added note, sometimes there may be more than one leading zero.

Here is my code:

For lngTranIndex = LBound(arrTranType) To UBound(arrTranType)

Sheets(strSpecifications).Range("G" & lngLastRowSpecSht + lngTranIndex).Value = _
Sheets(strTestFile).Range("J" & i).Value

 

[CalcSux78]

Try declaring arrTranType() as String. As a string, it will maintain the leading zero(s), as a number, it will drop them.