Dim conData As TextConnection
Set conData = Application.ActiveWorkbook.Connections("...").TextConnection
conData.Connection = "TEXT;" & "..."
conData.TextFilePlatform = -535 ' -535 = UTF-8
'Next line OK: indeed, it's shown in watch as Variant/Varian(1 to 1)
conData.TextFileColumnDataTypes(1) = xlTextFormat
'Next line not OK: subscript out of range
conData.TextFileColumnDataTypes(2) = xlGeneralFormat
'Next line not OK: Out of memory
conData.TextFileColumnDataTypes = Array(xlTextFormat, xlGeneralFormat, xlTextFormat, xlTextFormat, xlTextFormat, xlGeneralFormat, xlTextFormat)