Dim arrDDEReturn() As String
  Dim strSendTo As String
 
    txtDDE.LinkTopic = "iexplore|WWW_GetWindowInfo"
    txtDDE.LinkItem = &HFFFFFFFF
    txtDDE.LinkMode = 2
    txtDDE.LinkRequest
 
    arrDDEReturn = Split(txtDDE.Text, ",")
 
    MsgBox "Seitentitel: " & arrDDEReturn(1) & vbCrLf & "URL: " & arrDDEReturn( _
      0)
 
    strSendTo = InputBox("Wohin soll umgeleitet werden ?", "Wo geht's lang ?", _
      "http://www.google.de")
 
    txtDDE.LinkTopic = "iexplore|WWW_OpenURL"
    txtDDE.LinkItem = strSendTo
    txtDDE.LinkMode = 2
    txtDDE.LinkRequest