И ничего смешного.Программировать нужно уметь качественно, в том числе и такие вещи.

  Часто возникает необходимость при работе программы проинформировать пользователя о чем-либо или предоставить возможностьвыбора дальнейших действий. Для этого используется информационное окно - MsgBox(message box)

  Синтаксис :

  MsgBox(promt[, buttons] [, title] [, helpfile, context])

  Аргументы :

  promt - информация, которую вы хотите вывести.Максимально может содержать до 1024 символов. Возможно использование символов chr(10) и chr(13).

  buttons - сумма значений определяющая тип и число кнопок.

  title - аргумент типа String, заголовок окна.Если он опущен, то заголовком является имя приложения.

  help,context - отвечают за справочный файл. Я не использую.

Константы	Описание
vbOkOnly	Отображается только кнопка ОК.
vbOkCancel	Отображаются кнопки ОК и Cancel.
vbAbortRetryIgnore	Отображаются кнопки Abort, Retry и Ignore.
vbYesNoCancel	Отображаются кнопки Yes, No и Cancel.
vbYesNo	Отображаются кнопки Yes и No.
vbCritical	Окно имеет значок "Запрет".
vbQuestion	Окно имеет значок "Вопрос".
vbExclamation	Окно имеет значок "Предупреждение".
vbInformation	Окно имеет значок "Информация".
vbDefaultButton1	Установка кнопки по умолчанию.
vbSystemModal	Остановка выполнения проги до получения результата.

Пример

Private Sub Form_Load()
Dim promt,button,title,helpfile,context,result
promt = "Что ты смотришь на меня?"
button = vbYesNo + vbCritical
title = "Gibbon demo"
Helpfile = "Demo.hlp"
context = 20
result = MsgBox(promt,button,title,helpfile,context)
If result= vbYes then
.......... ' Выполнить если нажата Yes
End if   
If result= vbNo then
.......... ' Выполнить если нажата No
End if   
Ens Sub            

Written by U1traDIMM 17.11.2001
thanks to В.Карпов.