Excel VBA, Exchange rate(환율), Web Crolling Naver

Sub exchange_rate()

    Dim ie              As InternetExplorer
    Dim strURL        As String

    Set ie = CreateObject("InternetExplorer.application")

    strURL = "https://search.naver.com/search.naver?where=nexearch&sm=top_hty&fbm=1&ie=utf8&query=%ED%99%98%EC%9C%A8"

    ie.navigate strURL

    ie.Visible = False

    Do While (ie.readyState <> READYSTATE_COMPLETE Or ie.Busy = True)

        DoEvents

    Loop

    MsgBox ie.document.getElementsByTagName("strong")(16).innerText

    ie.Quit

    Set ie = Nothing

End Sub