Set f_src = fs1.GetFile(Me.tb_path.Value & "\" & f_name)

    Set t_src = f_src.OpenAsTextStream(1, TristateUseDefault)

    t_src.SkipLine 



    flag = False

    Do While Not t_src.AtEndOfStream

        s_src = t_src.ReadLine 'чтение текущей строки

        s_src_arr = Split(s_src, ";")

        If s_src Like comp_str Then

            rez_arr(c) = s_src 

'здесь мне нужно удалить текущую строку в файле

            flag = True

            c = c + 1

        End If

        i=i+1

    Loop