Mrdirix,On Error Resume Next
List1.Clear
Dim x
IEBroj1.Navigate Text1.Text
Delay 3
For i = 1 To IEBroj1.Document.links.length - 1
List1.AddItem IEBroj1.Document.links(i).href

Вернее вот так

Private IEBroj1 As SHDocVw.InternetExplorer




Private Sub Form_Load()
Set IEBroj1 = New SHDocVw.InternetExplorer
End Sub
Private Sub Form_Unload(Cancel As Integer)
IEBroj1.Quit
Set IEBroj1 = Nothing
End
End Sub

Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function

Private Sub Command1_Click()
On Error Resume Next
List1.Clear
Dim x
IEBroj1.Navigate Text1.Text
Delay 3 'Задержка для загрузки страницы,иногда приходится увеличить время до 30 секунд.
For i = 1 To IEBroj1.Document.links.length - 1
List1.AddItem IEBroj1.Document.links(i).href

Next
End Sub

Private Sub Command2_Click()
On Error Resume Next
List1.Clear
Dim x
IEBroj1.Navigate Text1.Text
Delay 3
For i = 1 To IEBroj1.Document.links.length - 1
If InStr(1, IEBroj1.Document.links(i).href, ".asp") <> 0 Or InStr(1, IEBroj1.Document.links(i).href, ".htm") <> 0 Then
List1.AddItem IEBroj1.Document.links(i).href

End If
Next
End Sub

Private Sub List1_Click()
Text2.Text = List1.Text
End Sub
Private Sub Command3_Click()
Text1.Text = Text2.Text
End Sub

thealВернее вот так

Private IEBroj1 As SHDocVw.InternetExplorer




Private Sub Form_Load()
Set IEBroj1 = New SHDocVw.InternetExplorer
End Sub
Private Sub Form_Unload(Cancel As Integer)
IEBroj1.Quit
Set IEBroj1 = Nothing
End
End Sub

Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function

Private Sub Command1_Click()
On Error Resume Next
List1.Clear
Dim x
IEBroj1.Navigate Text1.Text
Delay 3 'Задержка для загрузки страницы,иногда приходится увеличить время до 30 секунд.
For i = 1 To IEBroj1.Document.links.length - 1
List1.AddItem IEBroj1.Document.links(i).href

Next
End Sub

Private Sub Command2_Click()
On Error Resume Next
List1.Clear
Dim x
IEBroj1.Navigate Text1.Text
Delay 3
For i = 1 To IEBroj1.Document.links.length - 1
If InStr(1, IEBroj1.Document.links(i).href, ".asp") <> 0 Or InStr(1, IEBroj1.Document.links(i).href, ".htm") <> 0 Then
List1.AddItem IEBroj1.Document.links(i).href

End If
Next
End Sub

Private Sub List1_Click()
Text2.Text = List1.Text
End Sub
Private Sub Command3_Click()
Text1.Text = Text2.Text
End Sub

Работал у меня по крайней мере

авторDim i As Long, cur As Long
Randomize
WebBrowser1.Navigate Texsite.Text
While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
DoEvents
Wend
For Each TestLink In WebBrowser1.Document.links
If TestLink.innerText = "войти в почту" Then
Exit For
End If
i = i + 1
Next TestLink
cur = Int(6 * Rnd + i + 1)
WebBrowser1.Document.links(cur).Click
Это собственно поиск и переход