Option Explicit
'strPut-файл, который надо распарсить
'VihodnoiMassiv()-массив, в котором сохранится распарсенный файл
Sub ParserCSV(strPut As String, VihodnoiMassiv() As String)
    Dim i As Long
    Dim Txt As String 'переменная в которую записывается код
    Dim HitriiIndex As Long
    Dim HitriiMassiv() As String
    
    Erase VihodnoiMassiv

    Dim TIME1 As Variant
    TIME1 = Timer
    
    'считываем файл в массив
    Open strPut For Input As # 1 
    Do Until EOF( 1 )
        DoEvents
        Line Input # 1 , Txt
        HitriiIndex = HitriiIndex +  1 
        ReDim Preserve HitriiMassiv( 1  To HitriiIndex)
        HitriiMassiv(HitriiIndex) = Txt
    Loop
    Close # 1 
    
    'перекидываем весь код в переменную
    Txt = Join(HitriiMassiv, "")
    
    Erase HitriiMassiv
    
'    Txt = Replace(Txt, Chr(10), "") -может тоже стоит включить?
    Txt = Replace(Txt, Chr( 13 ), "")
    Txt = Replace(Txt, "  ", "") ' удаляем двойные пробелы
    Txt = Replace(Txt, "'", ",")
    Txt = Replace(Txt, ", ,", ",")
    Txt = Replace(Txt, ",,", ",")
    
    Txt = Replace(Txt, ",", Chr( 134 ) & Chr( 134 ) & Chr( 134 ))
    
'    Kill strPut
    
    VihodnoiMassiv = Split(Txt, Chr( 134 ) & Chr( 134 ) & Chr( 134 ))
    
    MsgBox Timer - TIME1
End Sub