We defined a single column array with 3 values (1,2,1)
gaArray(1)=1
gaArray(2)=2
gaArray(3)=1

Should we try:

loquery.TextFileColumnDataTypes(@gaArray) ??

where loquery is the excel object (loExcel)
loExcel.ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Q:\padutch\PADRPT\threedig.txt", Destination:=Range("A1"))
etc....

??

Thanks for responding so quickly