Excel VBA, Web Crolling, 유가(WTI) 가져오기

Sub wti_v2()

    Dim ie As InternetExplorer

    Dim strURL As String

    Dim wti_temp_1 As String

    Dim wti_temp_2 As String

    Dim wti As Variant

    

        Set ie = CreateObject("InternetExplorer.application")

        strURL = "https://search.naver.com/search.naver?where=nexearch&sm=top_hty&fbm=1&ie=utf8&query=wti"

        ie.Navigate strURL

        ie.Visible = False

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

            DoEvents

        Loop

        Application.Wait (Now + TimeValue("00:00:01"))

        wti_temp_1 = ie.document.getElementsByClassName("spt_con").Item.innerText

        wti_temp_2 = Right(wti_temp_1, Len(wti_temp_1) - 2)

        wti = Split(wti_temp_2, " ")

        MsgBox "유가(WTI)" & vbLf & wti(0) & " " & wti(4)

        

        ie.Quit

        Set ie = Nothing

End Sub