Sub DownloadIntraDayReport()

    Dim ie As New InternetExplorer

    ie.navigate "weblink"

    ie.Visible = True

    While ie.Busy
        DoEvents
    Wend

    Do
    Loop Until ie.readyState = READYSTATE_COMPLETE

    Set HTMLDoc = ie.document

    ie.document.getElementById("_58_login").Value = "username"

    ie.document.getElementById("_58_password").Value = "password"

    'ie.document.form().submit

    For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")

        If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click

    Next

End Sub