MS Office Import from text Excel

,
Public Function TXTReadALLFile(ByVal FileName As String, Optional AddFile As Boolean = True) As String
    'TXTReadALLFile - строковая переменая, возращающая содержание файла
    'FileName - строковая переменая, полный путь файла
    'AddFile - логическа переменая, по умолчанию True, если нет файла то создаст его
    
    Dim FSO    As Object
    Dim ts     As Object
    On Error Resume Next: Err.Clear
    Set FSO = CreateObject("scripting.filesystemobject")
    Set ts = FSO.OpenTextFile(FileName, 1, AddFile): TXTReadALLFile = ts.ReadAll: ts.Close
    Set ts = Nothing: Set FSO = Nothing
End Function

Sub Main()
    Dim a, i As Integer, b, j As Integer, k As Integer
    Range("A1:F10").ClearContents  'очистка диапазона
    Open ThisWorkbook.Path & "\" & "csv_Example.csv" For Input As #1 ' открываем файл для чтения
        s = Input(LOF(1), #1) 'читаем файл в переменную
    Close #1 'закрываем файл
    a = Split(s, vbNewLine) 'разделяем на строки и записываем массив
    For i = 0 To UBound(a) 'перебираем строки
        b = Split(a(i), ",") 'разделяем строки по запятым и записываем в массив
        For j = 0 To UBound(b) 'перебираем элементы массива
        Cells(i + 1, j + 1) = b(j) 'выводим результат на лист
    Next j, i
End Sub