DDE интерфейс: не нажимать каждый раз "Ок" для продолжения работы

Sub RunFullDDETest()
    '
    ' Test new DDE Commands in PhotoModeler
    ' Do a project with control points, inverse camera solution and then add
    ' photo, reference points and do bundle adjustment
    '
    
    Dim ret As String
    ' Set up the DDE conversation with PhotoModeler's DDE Server
    '  (note, PhotoModeler program must already be running)
    c = DDEInitiate(App:="PhotoModeler", Topic:="Data")
    
    MsgBox "Starting Project Test"
    
    ' Create empty new project with inches as units
    If Not DDECommand(c, "NewProject 7", ret) Then GoTo Failure
    
    ' Add a camera with guessed at parameters
    If Not DDECommand(c, "AddCamera unknown 8.0 6.7 5.3 640 480 3.5335 2.65", ret) Then GoTo Failure
    If Not DDECommand(c, "GetCamera unknown", ret) Then GoTo Failure
    MsgBox "Starting camera parameters " + ret
    ' Add a photo (no image)
    If Not DDECommand(c, "AddPhoto 1 unknown", ret) Then GoTo Failure
    ' Set the photo to do inverse camera processing to solve for focal length
    ' and format aspect ratio
    If Not DDECommand(c, "SetPhotoProcessing 1 5 1", ret) Then GoTo Failure
    ' Define some fixed control points