первенствует-кода 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 югу просто вызывает программу, чтобы сделать паузу в течение заданного количества секунд.