Private Sub Form_Load()
    Text1.LinkTopic = "Quellanwendung|Quellfenster"
    Text1.LinkMode = vbLinkManual
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii = 13) Then
        Text1.LinkExecute Text1.Text
        Text1.Text = ""
    End If
End Sub

Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
    Cancel = False
    Debug.Print "Nachricht der Zielanwendung: " & CmdStr
End Sub
 
Private Sub Form_Load()
    Form1.LinkTopic = "Quellfenster"
End Sub