Исходный текст

Option Explicit
Call AddNotification()

'==============================================================================
'Вывести сообщения для пользователя
'==============================================================================
Sub AddNotification()
    Dim dlg, RetVal

    'Открыть окно сообщений и добавить в него две строки
    ThisApplication.AddNotify Now()
    ThisApplication.AddNotify "Hello, " & ThisApplication.CurrentUser.Description & "!"

    'Это другой способ сообщить пользователю что-либо
    MsgBox "Сейчас будет открыто окно диалога для ввода данных." & Chr(13) &_
        "Диалог будет ждать ввод до тех пор, пока Вы не введете строку ""111"".", vbInformation

    'Это способ получить ввод пользователя и обработать полученные данные
    Set dlg = ThisApplication.Dialogs.SimpleEditDlg
    dlg.Caption = "Пользовательский ввод текста"
    dlg.Prompt = "Сообщение:"
    RetVal = dlg.Show

    'Копировать пользовательский ввод в Окно сообщений до тех пор, пока не
    'будет получена строка "111" или нажат Cancel
    While dlg.Text <> "111" And RetVal  <> FALSE
        ThisApplication.AddNotify dlg.Text
        RetVal = dlg.Show
    Wend

    ThisApplication.AddNotify "==== End of test ===="
End Sub
'==============================================================================