IE11対策

Module1.bas

Option Explicit

Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

'https://msdn.microsoft.com/en-us/library/52e6es3z.aspx
Private Declare PtrSafe _
Function AtlComQIPtrAssign Lib "atl110.dll" ( _
    ByRef pp As IUnknown, _
    ByVal lp As IUnknown, _
    ByRef riid As GUID _
) As IUnknown

Private Declare PtrSafe _
Function IIDFromString Lib "ole32.dll" ( _
    ByVal lpsz As LongPtr, _
    ByRef lpiid As GUID _
) As Long


    
Sub hoge()

    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "https://www.google.co.jp/?gws_rd=ssl"
    
    While ie.busy Or ie.ReadyState <> 4
        DoEvents
    Wend
    Dim pElement As Object
    Set pElement = ie.document.forms("f")("q")
    
    Dim IID_IHTMLElement2 As GUID
    Dim hr As Long
    hr = IIDFromString(StrPtr("{3050F434-98B5-11CF-BB82-00AA00BDCE0B}"), IID_IHTMLElement2)
    Debug.Print Hex$(hr)

    Dim unk As IUnknown
    Dim tmp As IUnknown
    Set tmp = AtlComQIPtrAssign(unk, pElement, IID_IHTMLElement2)
    Debug.Print unk Is Nothing, tmp Is Nothing

    If tmp Is unk Then
        MsgBox "同じやん(・∀・)"
    End If

End Sub