CSV fil importering. Foranstillede 0'er bliver importeret

Hejsa,
Når jeg importerer en CSV text fil, bliver 0911 og 00911 begge importeret som 911

Min kode ser således ud:

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" + vFileToOpen, Destination:=Range("$A$1"))
        .Name = "ESL"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        Range(Selection, Selection.End(xlToRight)).Select
end with

Er der en venlig sjæl, der kan fortælle mig, om jeg kan ændre på en af disse parametre, for ikke at miste foranstillede 0'er?

På forhånd tak