Why does this "wait for page to load" fail?

If I run this in the editor sometimes it works and sometimes it does not.
If I run this in editor with F8, stepping through the code, it does work. I can only guess that enough time is passing during the F8 presses that the page can load.
But is that not the purpose of adding the wait code?

Private Const READYSTATE_COMPLETE = 4
Private Const TimeOutSeconds As Double = 15
Sub IeP()

Dim objIE As Object
Dim TimeOutTime As Date

'create the IE object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Top = 0
objIE.Left = 0
objIE.Width = 1000
objIE.Height = 800
objIE.Visible = True
'objIE.AddressBar = 0
'objIE.StatusBar = 0
'objIE.Toolbar = 0

'navigate to the site
objIE.Navigate ("http://thewebsite.com")

   'add 15 seconds to the current time and assign
   'this value to the variable "TimeOutTime"
    TimeOutTime = DateAdd("s", TimeOutSeconds, Now)
    
Do Until objIE.ReadyState = READYSTATE_COMPLETE
DoEvents
 If Now > TimeOutTime Then
 'timed out
 MsgBox "Timed out..."
 End If
Loop

'I WAS USING BELOW BUT SWITCHED TO ABOVE
'Do
'DoEvents
'    If Err.Number <> 0 Then
'        objIE.Quit
'        Set objIE = Nothing
'        GoTo the_start
'    End If
'Loop Until objIE.ReadyState = 4

        Set the_input_elements = objIE.Document.getElementsByTagName("input")
        For Each input_element In the_input_elements
            If input_element.getAttribute("name") = "username" Then
                input_element.Value = "PRIVATE"
                'Exit For
            End If
            If input_element.getAttribute("name") = "password" Then
                input_element.Value = "NNNNNNN"
                Exit For
            End If
        Next input_element
        
        Set the_input_elements = objIE.Document.getElementsByTagName("input")
        For Each input_element In the_input_elements
        If input_element.getAttribute("value") = "Login" Then
            input_element.Click
            Exit For
        End If
        Next input_element
   
   'add 15 seconds
   TimeOutTime = DateAdd("s", TimeOutSeconds, Now)
   
Do Until objIE.ReadyState = READYSTATE_COMPLETE
DoEvents
 If Now > TimeOutTime Then
 'timed out
 MsgBox "Timed out..."
 End If
Loop


        Set the_input_elements = objIE.Document.getElementsByTagName("input")
        For Each input_element In the_input_elements
        If input_element.getAttribute("value") = "Launch Page" Then
            input_element.Click
            Exit For
        End If
        Next input_element
    
    'add 15 seconds
    TimeOutTime = DateAdd("s", TimeOutSeconds, Now)

Do Until objIE.ReadyState = READYSTATE_COMPLETE
DoEvents
 If Now > TimeOutTime Then
 'timed out
 MsgBox "Timed out..."
 End If
Loop

    'add 15 seconds
    TimeOutTime = DateAdd("s", TimeOutSeconds, Now)

Do Until objIE.ReadyState = READYSTATE_COMPLETE
DoEvents
 If Now > TimeOutTime Then
 'timed out
 MsgBox "Timed out..."
 End If
Loop

        'open the next page
        Set the_input_elements = objIE.Document.getElementsByTagName("input")
        For Each input_element In the_input_elements
        If input_element.getAttribute("value") = "thenextpage" Then
            input_element.Click
            Exit For
        End If
        Next input_element
    
    'add 15 seconds
    TimeOutTime = DateAdd("s", TimeOutSeconds, Now)

Do Until objIE.ReadyState = READYSTATE_COMPLETE
DoEvents
 If Now > TimeOutTime Then
 'timed out
 MsgBox "Timed out..."
 End If
Loop

'objIE.Quit
'Set objIE = Nothing
 End Sub

MarvinP, thanks for the reply.

A bit more guidance please. I have "DoEvents" in the code already.? Are you suggesting to add more, or move around the existing DoEvents?
Can you show where in one example?

Also there is java in the pages. I just saw something elsewhere that mentions there may be additional items happening after the page loads...if that makes any sense.

Sorry :-) I have tried two different methods for waits.

I tried...seems to make no difference, gets to the end of the code very quickly.
Took them out of the loops and placed them between each block.

Private Const READYSTATE_COMPLETE = 4
Private Const TimeOutSeconds As Double = 30
Sub IeK()

Dim objIE As Object
Dim TimeOutTime As Date

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Top = 0
objIE.Left = 0
objIE.Width = 1000
objIE.Height = 800
objIE.Visible = True
'objIE.AddressBar = 0
'objIE.StatusBar = 0
'objIE.Toolbar = 0

objIE.Navigate ("http://thewebsite.com")

DoEvents
DoEvents

   'add 15 seconds to the current time and assign
   'this value to the variable "TimeOutTime"
    TimeOutTime = DateAdd("s", TimeOutSeconds, Now)
    
    DoEvents
    
Do Until objIE.ReadyState = READYSTATE_COMPLETE
 If Now > TimeOutTime Then
 'timed out
 MsgBox "Timed out..."
 End If
Loop
    

    DoEvents
        Set the_input_elements = objIE.Document.getElementsByTagName("input")
        For Each input_element In the_input_elements
            If input_element.getAttribute("name") = "username" Then
                input_element.Value = "PRIVATE"
                'Exit For
            End If
            If input_element.getAttribute("name") = "password" Then
                input_element.Value = "NNNNNN"
                Exit For
            End If
        Next input_element

    DoEvents
        Set the_input_elements = objIE.Document.getElementsByTagName("input")
        For Each input_element In the_input_elements
        If input_element.getAttribute("value") = "Login" Then
            input_element.Click
            Exit For
        End If
        Next input_element
        
    DoEvents
        
   TimeOutTime = DateAdd("s", TimeOutSeconds, Now)
   
    DoEvents
   
Do Until objIE.ReadyState = READYSTATE_COMPLETE
 If Now > TimeOutTime Then
 'timed out
 MsgBox "Timed out..."
 End If
Loop
        
'GETS UP TO HERE...LOADS THE PAGE BUT DOES NOT CLICK IT

    DoEvents
        Set the_input_elements = objIE.Document.getElementsByTagName("input")
        For Each input_element In the_input_elements
        If input_element.getAttribute("value") = "Launch Page" Then
            input_element.Click
            Exit For
        End If
        Next input_element
        
        DoEvents

    TimeOutTime = DateAdd("s", TimeOutSeconds, Now)
    
    DoEvents

Do Until objIE.ReadyState = READYSTATE_COMPLETE
 If Now > TimeOutTime Then
 'timed out
 MsgBox "Timed out..."
 End If
Loop

DoEvents


'objIE.Quit
'Set objIE = Nothing

End Sub

Hello, can anyone help with this please?

(I put this together following a tutorial on youtube(web scraper vba), I am not that skilled in vba, but trying!)

I added the DoEvents (post #5). It seems to make no difference. If I step through the code it's getting enough time to complete and work as expected.
If I simply run the code in the editor, even after littering it with DoEvents, the code still flies through to the end.

Is there a better method to adding a wait? Is there is way to make sure the waits are triggered?

If you look at the code, then you see the below.
Isn't that the loop to wait for the page to load?

Private Const READYSTATE_COMPLETE = 4

Do Until objIE.ReadyState = READYSTATE_COMPLETE
 If Now > TimeOutTime Then
 'timed out
 MsgBox "Timed out..."
 End If
Loop

Hello,

Still looking for resolve on this issue. There are ReadyState loops in the code. So I do not know what else to add or where to add it.