коды Excel-VBA

Question

Может кто-нибудь объяснить мне следующие коды ...

Public Sub delay(seconds As Long)
            Dim endTime As Date
            endTime = DateAdd("s", seconds, Now())
            Do While Now() < endTime
                DoEvents
            Loop
        End Sub

    Function GetText2(ByVal strText, ByVal strStartTag, ByVal strEndTag)
        Dim intStart, intEnd
        intStart = CLng(InStr(1, strText, strStartTag, vbTextCompare))

        If intStart Then
            intStart = CLng(intStart + Len(strStartTag))
            intEnd = InStr(intStart + 1, strText, strEndTag, vbTextCompare)
            If intEnd <> 0 Then
             GetText2 = Mid(strText, intStart, intEnd - intStart)
           Else
              GetText2 = ""
            End If
        Else
            GetText2 = ""
        End If
    End Function

Answer 1

Абхи, мне кажется, что функция GetText2 принимает три строки, ищет вторую и третью строки в первой строке и возвращает текст между второй и третьей строками. Так, например:

GetText2("The quick brown fox jumps over the lazy dog","quick","fox")

должен вернуть строку:

"quick brown fox"

Подставка delay просто вызывает приостановку программы на указанное количество секунд.