Option Explicit

Private Sub Form_Load()
    On Error Resume Next
    
    'DDE Serverを起動します
    ShellWait App.Path & "\..\srv\dde_srv.exe"
    
    'DDE ClientからServerへ接続します
    Err.Clear
    Me.Text1.LinkTopic = "Project1|Form1"
    Me.Text1.LinkMode = vbLinkManual
    '指定のDDE Serverが存在しない
    'エラーが発生しました
    If Err.Number = 282 Then
        Debug.Print "Error: " & Err.Description
        Debug.Print "  " & "DDE Serverを先に起動してください"
        Unload Me
    End If
End Sub

Private Sub Text1_Change()
    On Error Resume Next
    'テキストを打ち込むごとにServerへ送信します
    Me.Text1.LinkExecute Text1.Text
End Sub