If Dir("C:\imgs.txt") <> "" Then
        Open "C:\imgs.txt" For Input As #2
            While Not EOF(2)
                Line Input #2, prog
                If Mid$(prog, 1, InStr(prog, "!") - 1) = WebBrowser1.LocationURL Then
                 If MsgBox("Hay una imagen disponible para el post actual. Deseas cargarla?", vbYesNo) = vbYes Then
                  URLDownloadToFile 0, Mid$(prog, InStr(prog, "!") + 1, Len(prog) - InStr(prog, "!")), "C:\ipost.jpg", 0, 0
                End If
                End If
                DoEvents
            'Wend
        Close #2
        Kill "C:\imgs.txt"
   
Timer1.Enabled = False
Wend

End If

While Not EOF(2)

http://www.nintendo-europe.com/wii/index_esES.html!http://www.bultza.arrakis.es/blogspot/37marbella2.jpg
http://www.ownmac.com/!http://www.brainythoughts.com/wp-content/einstein.jpg