For Loop Randomly Freezes

[cx323]

For i = 0 To 9999
    
    strHTML =    'get the source.  i know it gets the source correctly even when it freezes
 
    If InStrB(1, strHTML, "this") <> 0 Then
        x = x + 1
        Label2.Caption = x
    ElseIf InStrB(1, strHTML, "or this") <> 0 Then
        x = x + 1
        Label2.Caption = x
    ElseIf InStrB(1, strHTML, "thisthis") <> 0 Then
        x = x + 1
        Label2.Caption = x
    Else
        add_log strHTML
        lstlog.AddItem Time & " Found it"
    End If
    DoEvents
    Sleep 10
    Pause (1)
Next i

I'm not sure why it's freezing. It's frozen anywhere from the 2nd time to the 38th. Also if you could tell me why it uses 100% of the cpu even with a pause adn DoEvents that would be great. Thanks for any help

[moeur]

Don't worry about how much CPU time your loop is using. Other processes are allocated time as needed by the OS.

If you don't need to see the caption change every iteration you can remove the sleep and pause and only call DoEvents every 20th iteration or so.

[cx323]

thanks for the help, the cpu usage problem is gone, but it still freezes, i've had to go up to 877 but it still froze

[MartinLiss]

What does add_log look like?

[cx323]

Private Function add_log(ByVal msg As String)
    Open App.Path & "\Log.txt" For Append As #1
    Print #1, msg
    Close #1
    add_log = msg
End Function

[randem]

Sleep 10
Pause (1)

What is this all about?