Loop help needed

[devGOD]

can anyone help me with this coding? i'm trying to get Loop to check if the browser is still busy and if its been busy for
more than 3 secs to stop

Dim gStart As Long
gStart = Timer
 
  Do
  DoEvents
  Loop Until If Not WebBrowser1.Busy = True Then
  End If
  ElseIf InStr(1, WebBrowser1.LocationURL, "user?/nemx") <> 0 And Timer - gStart > 3 And 
  Not WebBrowser1.Busy = False Then
  WebBrowser1.Stop
  End If