MsgBox Function
Отображает диалоговое окно, содержащее сообщение, и возвращает значение.
MsgBox (Prompt As String [,Buttons = MB_OK [,Title As String]]) As Integer
 prompt: String expression displayed as a message in the dialog box. Line breaks can be inserted with Chr$(13).
 title: String expression displayed in the title bar of the dialog. If omitted, the title bar displays the name of the respective application.
 buttons: Any integer expression that specifies the dialog type, as well as the number and type of buttons to display, and the icon type. buttons represents a combination of bit patterns, that is, a combination of elements can be defined by adding their respective values:
  
    | Именованная константа | Целое значение | Определение | 
  
    | MB_OK | 0 | Отображать только кнопку ОК. | 
  
    | MB_OKCANCEL | 1 | Отображать кнопки ОК и Отмена. | 
  
    | MB_ABORTRETRYIGNORE | 2 | Display Abort, Retry, and Ignore buttons. | 
  
    | MB_YESNOCANCEL | 3 | Display Yes, No, and Cancel buttons. | 
  
    | MB_YESNO | 4 | Display Yes and No buttons. | 
  
    | MB_RETRYCANCEL | 5 | Display Retry and Cancel buttons. | 
  
    | MB_ICONSTOP | 16 | Add the Stop icon to the dialog. | 
  
    | MB_ICONQUESTION | 32 | Add the Question icon to the dialog. | 
  
    | MB_ICONEXCLAMATION | 48 | Add the Exclamation Point icon to the dialog. | 
  
    | MB_ICONINFORMATION | 64 | Add the Information icon to the dialog. | 
  
    |   | 128 | First button in the dialog as default button. | 
  
    | MB_DEFBUTTON2 | 256 | Second button in the dialog as default button. | 
  
    | MB_DEFBUTTON3 | 512 | Third button in the dialog as default button. | 
 
Integer
  
    | Именованная константа | Целое значение | Определение | 
  
    | IDOK | 1 |  ОК | 
  
    | IDCANCEL | 2 |  Отмена | 
  
    | IDABORT | 3 |  Прервать | 
  
    | IDRETRY | 4 |  Повторить | 
  
    | IDIGNORE | 5 |  Ignore | 
  
    | IDYES | 6 |  Да | 
  
    | IDNO | 7 |  Нет | 
5 Неправильный вызов процедуры
Пример:
Sub ExampleMsgBox
Dim sVar As Integer
 sVar = MsgBox("Калининград")
 sVar = MsgBox("Калининград",1)
 sVar = MsgBox( "Калининград",256 + 16 + 2,"Название диалогового окна")
 sVar = MsgBox("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYIGNORE, "Dialog title")
End Sub