[RESOLVED] Get All Images Link from HTML

[_RaJ_]

i wrote this.......

but when i use debug.print img then it dont show anything in intermediate area

Public Sub imgTag(theData As String)
Dim I As Long, Z As Long, S As Long, IMG As String
On Error GoTo HeLL
S = 1
Dim DD As String
    For I = 1 To UBound(Split(Text2.Text, "src="))
        S = InStr(S, Text2.Text, "<img src=" & Chr(34))
        Z = InStr(S, Text2.Text, Chr(34))
        IMG = Mid(Text2.Text, S, (Z - Z))
        debug.print IMG
        S = S + 5
    Next
HeLL:
    Exit Sub
End Sub