Sub FillBufferMassiv(P1)
Dim buffermassiv()
reDim preserve buffermassiv(0,0)
buffermassiv(0,0) = "1"
    b = - 1
    Set vStream = objFso.OpenTextFile(P1, 1, True) 
        Do Until vStream.AtEndOfStream 'цикл по строкам файла
            sLine = vStream.ReadLine 
            SettingsLine = Split(sLine,";")
            reDim preserve buffermassiv(1,1)
            Msgbox "Прошел"
        Loop
    vStream.Close 'закрываем файл    
End Sub