Function Да_Нет(Текст)
Const MB_OK =  0 , MB_OKCANCEL =  1     ' Описание кнопок.
Const MB_YESNOCANCEL = 3, MB_YESNO = 4
Const MB_ICONSTOP = 32, MB_ICONQUESTION = 32   ' Описание значков.
Const MB_ICONEXCLAMATION =  48 , MB_ICONINFORMATION =  64 
Const MB_DEFBUTTON2 =  256 , IDYES =  6 , IDNO =  7    ' Описание других констант.
Заголовок = " " 'Выберите значение"
Тип = MB_YESNO + MB_ICONSTOP + MB_DEFBUTTON2   ' Описание окна диалога.
Ответ = MsgBox(Текст, Тип, Заголовок)   ' Получение ответа пользователя.
If Ответ = IDYES Then   ' Проверка значения ответа
  Да_Нет = True
Else
  Да_Нет = False
End If
End Function