With oBrowser
    ' Seite aufrufen
    Call .Navigate2(sURL)
 
    ' Warten bis fertig geladen
    tStart = Now
    Do While .ReadyState <> READYSTATE_COMPLETE
      DoEvents
      If lWaitTime > 0 Then
        If DateDiff("s", tStart, Now) > 30 Then
          Call .Navigate2(sURL)
          tStart = Now
        End If
      End If
    Loop
 
    Set objSite = .Document.GetElementsByTagName("img")
  End With
 
    For Each obj In objSite
      With obj
        If InStr(1, .href, "gallery.php?gid=") > 0 Then
          If InStr(1, .href, sURL) = 0 And InStr(1, .href, "&start=") > 0 Then
            Call ExtractPictures(.href, True)
          End If
        End If
      End With
    Next obj
    Set obj = Nothing
    Set objSite = Nothing