Импорт из Excel длинного текста (более 255 символов)

Function TestMyFunc()
Dim strSQL$
    Dim LngText$, LngTextArr$()
        Dim xlSheetName$
            Dim dbTableName$
                Dim xlFile$
                    Dim I%, a%
                       Dim app As Object
xlFile = Form_Главная_форма.ТекущаяПапкаКореньБД & "\Выгрузки из 1сУПП\ВыгрузкаДог.xls"
    dbTableName = "TestImport"
        xlSheetName = "TDSheet"
    I = 256 'длина текста
        ReDim LngTextArr(I)
            For a = LBound(LngTextArr) To UBound(LngTextArr) - 1
                LngTextArr(a) = "Y"
            Next
    LngText = Join(LngTextArr, "")
Set app = CreateObject("excel.application")
    With app
            .Workbooks.Open (xlFile)
            .Range("B1").Value = LngText
            .Range("H1").Value = LngText
            .ActiveWorkbook.Save
            .Quit
    End With
'    Debug.Print LngText
    Set app = Nothing
         CurrentDb.Execute "DELETE * FROM " & dbTableName
            strSQL = "INSERT INTO [" & dbTableName & "] SELECT * FROM [" & xlSheetName & "$] "
                strSQL = strSQL & "IN '" & xlFile & "' [Excel 12.0 Xml; hdr=no;IMEX=1] "
                    strSQL = strSQL & "WHERE [" & xlSheetName & "$].F3 IS NOT NULL"
        CurrentDb.Execute strSQL
        CurrentDb.Execute "DELETE * FROM " & dbTableName & " TestImport WHERE f2='" & LngText & "'"
End Function

Function TestMyFunc()
Dim strSQL$
    Dim LngText$
        Dim xlSheetName$
            Dim dbTableName$
                Dim xlFile$
                       Dim app As Object
xlFile = Form_Главная_форма.ТекущаяПапкаКореньБД & "\Выгрузки из 1сУПП\ВыгрузкаДог.xls"
    dbTableName = "TestImport"
        xlSheetName = "TDSheet"
    LngText = String(256, "Y")
Set app = CreateObject("excel.application")
    With app
            .Workbooks.Open (xlFile)
            .Range("B1").Value = LngText
            .Range("H1").Value = LngText
            .ActiveWorkbook.Save
            .Quit
    End With
'    Debug.Print LngText
    Set app = Nothing
            strSQL = "INSERT INTO [" & dbTableName & "] SELECT * FROM [" & xlSheetName & "$] "
                strSQL = strSQL & "IN '" & xlFile & "' [Excel 12.0 Xml; hdr=no;IMEX=1] "
                    strSQL = strSQL & "WHERE [" & xlSheetName & "$].F3 IS NOT NULL"
    With CurrentDb
            .Execute "DELETE * FROM " & dbTableName
            .Execute strSQL
            .Execute "DELETE * FROM " & dbTableName & " TestImport WHERE f2='" & LngText & "'"
    End With
End Function