Web Data Import to excel file

Dim navdone As Boolean
Dim mdata As String

Private Sub UserForm_Activate()

    Do
        DoEvents
    Loop Until navdone = True
    
    Do
        DoEvents
    Loop Until InStr(WebBrowser1.Document.documentelement.innerhtml, "FXHistory ©1997-2003 by OANDA Corporation") <> 0

    Currency1 = "USD"
    Currency2 = "AUD"
    
    Startdate = "08/01/03"
    
    WebBrowser1.Document.all("exch2").Value = Currency1
    WebBrowser1.Document.all("expr2").Value = Currency2
    WebBrowser1.Document.all("date1").Value = Startdate

    navdone = False
    WebBrowser1.Document.all("SUBMIT").Click
    
    Do
        DoEvents
    Loop Until navdone = True
    
    Do
        DoEvents
    Loop Until InStr(WebBrowser1.Document.documentelement.innerhtml, "Conversion Table:") <> 0
    
    mydata = WebBrowser1.Document.documentelement.innerhtml

    'Add code to parse your currency exchange data from the mydata string here

End Sub

Private Sub UserForm_Initialize()

    navdone = False
    
    WebBrowser1.Navigate "http://oanda.com/convert/fxhistory"

End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

    navdone = True

End Sub