Retrieve Data From Website Page

I found this code on a site but was unable to identify the programmer. I need to fix one problem I have with the code. When I log into my specific site, after entering the login and password I get a window that pops asking me if I would like to proceed. How do I select the yes button on the pop up?

Sub LoginToURL() 
    Dim ie As Object, strURL As String, strUsername As String, strPassword As String 
     
    Set ie = CreateObject("InternetExplorer.Application") 
     
    strURL = "http://www.skytronic.co.uk/product/index.php?s=128.685" 
    strUsername = "guest" 
    strPassword = "password" 
     
    ie.Navigate strURL 
     'Wait until page is loaded.
    While ie.ReadyState < 4 ' READYSTATE_COMPLETE = 4
        DoEvents 
    Wend 
     
    ie.Visible = True 
     
    ie.Document.All("username").Value = strUsername 
    ie.Document.All("password").Value = strPassword 
    ie.Document.All("submit").Click 
     
     'Wait until page is loaded.
    While ie.ReadyState < 4 ' READYSTATE_COMPLETE = 4
        DoEvents 
    Wend 
     
    Application.Wait (Now + TimeValue("0:00:05")) 
     
    urldownloadtofile http://www.skytronic.co.uk/product/index.php?s=128.685.txt 
     
End Sub

Please change your PHP tags to CODE tags.