Please check my Inet image downloading code...

For some reason my code is no longer working to download the image on my website:

Code: Code:

Private Sub DownloadImage()
If InStr(source, "image of the day") Then
WebBrowser1.SetFocus
SendKeys ("{PGDN}")
 
Dim img As HTMLImg
   For Each img In WebBrowser1.Document.images
      If InStr(img.src, "vimage") Then
    
       Dim tData() As Byte
       Dim iFile As Integer
       Dim sURL As String
 
      sURL = img.src
 
    
        iFile = FreeFile
        tData = ctlInet.OpenURL(sURL, icByteArray)
      Open App.Path & "\image.jpg" For Binary As iFile
        Put #iFile, , tData()
       Close iFile
      End If
    Next
 
End If