EPM_IE

Module1.bas

Option Explicit

Private Declare PtrSafe _
Function IWebBrowser_Navigate2 Lib "shlwapi.dll" Alias "#575" ( _
    ByVal IE As Object, _
    ByVal url As LongPtr, _
    ByVal Flags As LongPtr, _
    ByVal TargetFrameName As LongPtr, _
    ByVal PostData As LongPtr, _
    ByVal Headers As LongPtr _
) As Long

Sub hoge()

    Const url = "http://www.yahoo.co.jp/"
    
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    
    Dim hr As Long
    hr = IWebBrowser_Navigate2(IE, StrPtr("http://www.yahoo.co.jp/"), 0, 0, 0, 0)
    'CallByName IE, "Navigate2", VbMethod, url

    'IE.Navigate url
    While IE.busy Or IE.ReadyState <> 4
        DoEvents
    Wend
    
End Sub