For Each element In HTMLDoc.all
    'Wenn wenn die ID (Länge z.B thisDoc, größer 0 ist)
    If Len(element.ID) <> 0 Then
        ' 10 milisekunden warten (Lauf schneller als die Abbildung der Elemente)
        Sleep 10    ' Declaration -> Sleep wird benötigt
                ' mich interessieren nur die Elemente mit der ID *in*
                If element.ID = "in" Then
                    ' gibt es das Element mit dem Wert *suchen*
                    If LCase(element.Value) = "suchen" Then
                        '*dann Click*
                        element.Click
                        ' Schleife verlassen
                        Exit For
                    End If
            End If
    End If
 Next element

'######################################################################
    Do  ' solange warten bis die Seite geladen ist!!!!!!!!!!
    Loop Until oBrowser.readyState = READYSTATE_COMPLETE
    ' (hat) nicht funktioniert!!!! - deswegen.....
    Sleep 6000    
'######################################################################