Dim oShApp As Object
Dim oWin As Object
Dim IE As Object = Nothing
 
oShApp = CreateObject("Shell.Application")
For Each oWin In oShApp.Windows
  If TypeName(oWin.Document) = "HTMLDocumentClass" Then
    Dim sURL As String = oWin.LocationURL
    If sURL.Contains("www.google.de") Then
      IE = oWin
      Exit For
    End If
  End If
Next 
 
If Not IsNothing(IE) Then
  IE.Document.Forms("sfrm").elements("q").Value = "Mein Suchtext"
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de