Как распарсить строку с HTML-страницы

    k1%=Instr(BigStr$,"coords=")
    k2%=Instr((k1%+7),BigStr$,Chr$(34))
    Coords$=mid$(BigStr$,k1%+7,k2%-k1%-8)

':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::     Извлечь из списка значение по ключевому слову   :::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Public Sub GetList(Stri$, Kw$, Res$) 
'Stri - исх. строка; Kw - ключевое слово; Res-результат
      Res$ = ""
      LstOrg$ = Stri$
      Lst$ = LCase$(LstOrg$)
      KeyWord$ = Kw$ + "="
      l% = Len(KeyWord$)
      Beg% = 1
      Do
         j% = InStr(Beg%, Lst$, KeyWord$)
         If (j% = 0) Then Exit Sub                ' Ключевого слова нет
                                                           ' или оно в конце строки
         If ((j% + l%) = Len(Lst$)) Or _
            (Mid$(Lst$, (l% + j%), 1) = ")") Or _
            (Mid$(Lst$, (l% + j%), 1) = "]") Or _
            (Mid$(Lst$, (l% + j%), 1) = "}") Or _
            (Mid$(Lst$, (l% + j%), 1) = ",") Then
            Exit Sub
         End If
         If (j% > 1) Then                          ' Если слово не в начале строки
                                                         ' и перед ним нет запятой - дальше
            If (Mid$(Lst$, (j% - 1), 1) <> ",") Then
               Incr Beg%
            Else
               Exit Do
            End If
         Else
            Exit Do
         End If
      Loop
      Select Case (Mid$(Lst$, (l% + j%), 1))
             Case ("(")
                  del$ = ")"
             Case ("[")
                  del$ = "]"
             Case ("{")
                  del$ = "}"
             Case Else
                  del$ = ","
      End Select
      For i% = (l% + j%) To Len(Lst$)
          s1$ = Mid$(LstOrg$, i%, 1)
          Res$ = Res$ + s1$
          If s1$ = del$ Then Exit For
      Next i%
      If Right$(Res$, 1) = "," Then Res$ = Left$(Res$, Len(Res$) - 1)
End Sub

Private Sub Form_Load()
Dim s$, a, aa, i%, j%
AutoRedraw = True
a = Array("<area href=""", "coor=""", "alt=""")
s = "<area href=""http://site.com/p2"" coor=""190,88,28"" alt=""Уровень 1""><area href=""http://site.com/p2"" coor=""280,89,28"" alt=""Уровень 2"">"
For i = 0 To UBound(a)
  aa = Split(s, a(i))
  For j = 1 To UBound(aa)
    Print Split(aa(j), """")(0)
  Next j
Next i
End Sub

':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::                     Увеличение                     :::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Public Sub Incr(a As Variant, Optional b As Variant = 1)
       a = a + b
End Sub
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::                     Уменьшение                     :::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Public Sub Decr(a As Variant, Optional b As Variant = 1)
       a = a - b
End Sub
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::                           Обмен                       :::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Public Sub Swap(a As Variant, b As Variant)
Dim c As Variant
       c = a
       a = b
       b = c
End Sub