Private Sub Form_Load()
  On Error GoTo Fehler
  Text1.LinkMode = 0
  Text1.LinkTopic = "Zielanwendung|Zielfenster"
  Text1.LinkMode = vbLinkManual
  Exit Sub
  '--------------------------------------------
Fehler:
  Debug.Print Err, Error(Err)
  Resume Next
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
  On Error GoTo Fehler  
  If KeyAscii = 13 Then Text1.LinkExecute Text1.Text
  Text1.Text = ""
  Exit Sub
  '--------------------------------------------
Fehler:
  Debug.Print Err, Error(Err)  Resume Next
End Sub
 
 
Projekt-Name 2: Zielanwendung
 
Private Sub Form_Load()
  Form1.LinkTopic = "Zielfenster"    
End Sub
 
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
  Cancel = False
  Debug.Print "Nachricht der Quelle: " & CmdStr    
End Sub

...enden die Fragen nie?