fang url og skift den i browser..

hej jeg er i gang med at lave et stykke software som skal register hjemmeside besøg, samt blokering af bestem hjemmeside, og har arbejder med dde men
kan kun få den til at gang hjemmeside, som er aktiv og open nye side men ikke rette side til anden..

min kode jeg bruger er pt
    Private Function GetBrowserURL(browser As String) As String
        Try
            Dim dde As New DdeClient(browser, "WWW_GetWindowInfo")
            dde.Connect()
            Dim url As String = dde.Request("URL", Integer.MaxValue)
            Dim text As String() = url.Split(New String() {""","""}, StringSplitOptions.RemoveEmptyEntries)
            dde.Disconnect()
            Return text(0).Substring(1)
        Catch
            Return Nothing
        End Try
    End Function