[RESOLVED] Grab Links from Webpage

[FireXtol]

Dim X As Long, Y As Long
Dim sHtml As String
sHtml = LCase$(Text1.Text) 'cast to lower case
 
X = InStr(sHtml, "[img]")
Do While X
  X = X + Len("[img]")
  Y = InStr(X, sHtml, "[")
  If X > 0 And Y > 0 Then
    Debug.Print Mid$(sHtml, X, Y - X)
  Else
    Exit Do
  End If
  X = InStr(Y, sHtml, "[img]")
Loop
 
'returns
'http://images.com/thumbs/atob3iji.jpg
'http://images.com/images/atob3iji.jpg

Bon Appétit!