Public Function Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String) As String
        //Объявляются 2е переменные iPos и iEnd с типом целое (Integer)
        Dim iPos As Integer, iEnd As Integer
        //Объявляется переменная типа строка, для сохранения результатов выполнения функции
        Dim strResult As String
        //в строке strSource ищется подстрока strStart с 0 позиции, в iPos сохраняется индекс (позиция) этой подстроки, если строка не найдена, то iPos будет меньше 0
        iPos = strSource.IndexOf(strStart, 0)
        //в строке strSource ищется подстрока strEnd с позиции конца ранее найденной подстроки, в iEnd сохраняется индекс (позиция) подстроки strEnd
        iEnd = strSource.IndexOf(strEnd, iPos + strStart.Length)
        //Если iPos и iEnd не равны -1 (а это значит, что обе подстроки были найдены в строке strStart
        If iPos <> -1 AndAlso iEnd <> -1 Then
            //Получаем из строки strSource подстроку которая находится между подстроками strStart и strEnd
            strResult = strSource.Substring(iPos + strStart.Length, iEnd - (iPos + strStart.Length))
        End If
        //Возвращаем результат
        Return strResult
    End Function