if you want all instances of IE ( or one if thats all you have open ) , i just quickly knocked this together for you...
VB Code:
Dim typeShell As Type = Type.GetTypeFromProgID("Shell.Application")
Dim objShell As Object = Activator.CreateInstance(typeShell)
Dim o As Object = typeShell.InvokeMember("Windows", Reflection.BindingFlags.InvokeMethod, Nothing, objShell, Nothing)
Dim obIe As Object
For Each obIe In o
Dim sUrl As String = obIe.GetType.InvokeMember("LocationUrl", Reflection.BindingFlags.GetProperty, Nothing, obIe, Nothing)
MessageBox.Show(sUrl)
Next