Sub oh()

Dim i, s, o As New XMLHTTP

For i =  1  To  20 
o.Open "GET", Cells(i,  1 ).Hyperlinks( 1 ).Address, False
o.send
s = o.responseText

MsgBox s

<здесь вытягиваем из строки s нужную инфу и записываем ее куда надо>

Next i

Set o = Nothing

End Sub

Sub oh()

Dim i, s, o As New WinHttp.WinHttpRequest

For i =  1  To  20 
o.Open "GET", Cells(i,  1 ).Hyperlinks( 1 ).Address, False
o.send
s = o.responseText

MsgBox s

<здесь вытягиваем из строки s нужную инфу и записываем ее куда надо>

Next i

Set o = Nothing

End Sub

Sub reg_exp_tester()
MsgBox SubMatchTest("ddddd" & vbCrLf & "mail@mail.ru>;kkkkkkkkk")
End Sub

Function SubMatchTest(inpStr)
Dim oRe, oMatch, oMatches
Set oRe = New RegExp
oRe.Pattern = "(\w+)@(\w+)\.(\w+)"
Set oMatches = oRe.Execute(inpStr)
Set oMatch = oMatches( 0 )
SubMatchTest = oMatch
End Function

Sub oh()

Dim i, s, o As New WinHttp.WinHttpRequest

For i =  1  To  20 

o.Open "POST", Cells(i,  1 ).Hyperlinks( 1 ).Address, False

o.send "login=IVANOV&password=123123"

s = o.responseText

... ... ...

Next i

Set o = Nothing

End Sub

Sub address()
Dim s, z, t1, t2, addr

s = "<td>Дом. адрес</td>" & vbCrLf & "<td><span class=""blue11b"">какой-то адрес</span></td>"

z = InStr( 1 , s, "Дом. адрес")

If z >  0  Then
   t1 = InStr(InStr(z, s, "<span"), s, ">") +  1 
   t2 = InStr(t1, s, "</")
   addr = Mid(s, t1, t2 - t1)
   MsgBox addr
End If


End Sub