Public Function Poshuk_Vibirayemo(ByVal Vhid As String, ByVal StrokaIzZrazkom As String, Regim As String) As String
    Dim i As Long
    Dim b As Boolean
    Dim s1 As String
    Dim s2 As String
    Dim s3 As String
    Dim q As String
    Dim w As String
    Dim bl1 As String
    Dim bl2 As String
    Dim vh4 As String
    Dim vh3 As String
    Dim vh1 As String
    b = False

Dim sS0 As String
Dim sS1 As String
Dim sS2 As String
Dim sS3 As String
Dim sS4 As String
            sS0 = Vhid
            sS1 = sS0
            vh3 = StrokaIzZrazkom
            w = vh3
            b = False
Cicl2:
       If Trim(w) <> "" Then
         i = InStr(w, ",")
         If i >  1  Then
           q = Left(w, i -  1 )
           w = Trim(Mid(w + " ", i +  1 ))
         Else
           q = w
           b = True
         End If
       i = InStr( 1 , sS1, q, vbTextCompare)
         If i =  0  Then b = False: GoTo Dali2
         bl1 = q
         sS2 = Mid(sS1, i + Len(q))
         sS1 = Mid(sS1, i)
         If b = True Then sS3 = "": GoTo Dali2
Cicl3:
         i = InStr(w, ",")
         If i >  1  Then
           q = Left(w, i -  1 )
           w = Trim(Mid(w + " ", i +  1 ))
         Else
           q = w
           b = True
           bl2 = q
         End If
       i = InStr( 1 , sS2, q, vbTextCompare)
          If i =  0  Then b = False: sS1 = "": GoTo Dali2
          If Len(q) + i -  1  =  0  Then b = False: sS1 = "": GoTo Dali2
          sS2 = Mid(sS2, Len(q) + i)
          sS3 = Left(sS1, Len(sS1) - Len(sS2))
          If b = True Then GoTo Dali2
         GoTo Cicl3
       End If
Dali2:
        If b = True Then
          If Regim = "вибираємо все" Then
             Poshuk_Vibirayemo = sS3
          End If
          If Regim = "вибираємо що в середині" And bl1 <> "" And bl2 <> "" Then
             sS0 = sS3
              sS0 = Mid(sS0, Len(bl1) +  1 )
              Poshuk_Vibirayemo = Left(sS0, Len(sS0) - Len(bl2))
          End If
          If Regim = "пропускаємо" Then
             Poshuk_Vibirayemo = sS2
          End If
        Else
             Poshuk_Vibirayemo = ""
        End If
End Function

TmpWebNomStor = Poshuk_Vibirayemo(WebNomStor, "<UL class=paginator>,<BR><BR>", "вибираємо що в середині")

If Poshuk_Vibirayemo(TmpWebNomStorRozdil, "<a,>", "вибираємо що в середині") <> "" Then 

TmpWebNomStor = Poshuk_Vibirayemo(TmpWebNomStor, "<li>," + Chr( 13 ) + Chr( 10 ), "пропускаємо")

Public Function ZnaytiVperedIObrizatiPisla(Vhid As String, Zrazok As String) As String
  Dim i2 As Long
   i2 = InStr( 1 , Vhid, Zrazok, vbTextCompare)
      If i2 <>  0  Then
        ZnaytiVperedIObrizatiPisla = Mid(Vhid, i2 + Len(Zrazok))
      Else
        ZnaytiVperedIObrizatiPisla = ""
      End If
End Function
Public Function ZnaytiVperedIObrizatiPislaREV(Vhid As String, Zrazok As String) As String
  Dim i2 As Long
   i2 = InStrRev(Vhid, Zrazok, - 1 , vbTextCompare)
      If i2 <>  0  Then
        ZnaytiVperedIObrizatiPislaREV = Mid(Vhid, i2 + Len(Zrazok))
      Else
        ZnaytiVperedIObrizatiPislaREV = ""
      End If
End Function

Public Function ZnaytiVperedIObrizatiDo(Vhid As String, Zrazok As String) As String
  Dim i2 As Long
   i2 = InStr( 1 , Vhid, Zrazok, vbTextCompare)
      If i2 <>  0  Then
        ZnaytiVperedIObrizatiDo = Left(Vhid, i2 -  1 )
      Else
        ZnaytiVperedIObrizatiDo = ""
      End If
End Function