Hallo OCtopus,
ich gehe mal davon aus, dass es darum geht die URL von "außen" aus dem Browser zu bekommen.
Für den IE kann ich folgendes CodeSnip anbieten mit dem alle Instanzen des IE gefunden und durchlaufen werden
um anschließend jeweils die URL abzufragen.
Mit einem vergleichbaren Verfahren für FireFox kann ich leider atm nicht dienen.
Dim oWindowList 
Set oWindowList = CreateObject("Shell.Application").Windows
If oWindowList.Count > 0 Then
  Dim oWindow 
  For Each oWindow In oWindowList
    If UCase(Right(oWindow.FullName, 12)) = "IEXPLORE.EXE" Then
      MsgBox "Internet Explorer gefunden. URL:= '" & oWindow.LocationURL & "'"
    End If
  Next
End If
 
Ich hoffe das hier hilft aber schon mal ein wenig weiter.
Gruß Frank