Option Explicit
Dim sText As String
Dim TempS As String
Private Sub Form_Load()
Dim Ini As Long
Dim Fin As Long
Dim Cont As Long
Dim i As Integer
    Open "D:\Mis documentos\My Widgets\Yahoo! Weather.widget" For Binary Access Read As #1
        sText = Space(LOF(1) - 1)
        Get #1, , sText
    Close
 For i = 1 To 175
 Ini = InStr(sText, "‰PNG")
  
  sText = Mid(sText, Ini + 4)
  Fin = InStr(sText, "‰PNG")
 Debug.Print Ini, Fin
  TempS = "‰PNG" & Left(sText, Fin)
  
      'Debug.Print Left(sText, 10)
    Open "C:\TemporalPrueva\" & Format(Cont, "000") & ".PNG" For Binary As #1

        Put #1, , TempS
    Close
  
    
    Cont = Cont + 1
Next
End Sub