Excel - Macro que llena formulario de internet

Sub dni()

    Dim IE          As Object

    Dim n           As Integer

    Dim oInput      As Object

    Dim SearchFor   As String

    Dim URL         As String

    SearchFor = "72478297"

    URL = "https://consultamiembrodemesa.onpe.gob.pe/"

    Set IE = CreateObject("InternetExplorer.Application")

    IE.Navigate URL

    IE.Visible = True

    ' Wait for IE to finish.

    While IE.Busy Or IE.ReadyState <> 4: DoEvents: Wend

    ' Wait for the web page to be rendered.

    With CreateObject("Shell.Application")

        DoEvents

        For n = 1 To .Windows.Count

            If .Windows(n - 1) = "Internet Explorer" Then Exit For

        Next n

    End With

    Set oInput = IE.Document.getElementById("DNI")

    oInput.Value = SearchFor

End Sub

Option Explicit

Sub DNI()

    Dim IE      As Object

    Dim espera  As Double

    Dim msg     As String

    msg = "Faltan datos" & vbNewLine & vbNewLine

    If Hoja1.Range("E6").Value = "" Then msg = msg & vbTab & "- Usuario" & vbNewLine

    If msg = "Faltan datos" & vbNewLine & vbNewLine Then

On Error Resume Next

     Set IE = CreateObject("InternetExplorer.Application")

        With IE

            .Navigate "https://consultamiembrodemesa.onpe.gob.pe/"

            While .Busy

                DoEvents

            Wend

            espera = Timer + 1

            Do While Timer < espera

                DoEvents

            Loop

            With .Document.all

                .Item("dni").Value = Hoja1.Range("E6").Value

                 espera = Timer + 1

                .Item("submit").input

            End With

            .Visible = True

        End With

        Set IE = Nothing

    Else

        msg = msg & vbNewLine & "Complementa los datos solicitados y ejecuta de nuevo" & vbNewLine & vbNewLine

        MsgBox msg, vbCritical, "APERTURA DNI"

    End If

End Sub