'Return constants:
'const vbOK=1
'const vbCancel=2
'const vbAbort	= 3
'const vbRetry	= 4
'const vbIgnore	= 5
'const vbYes	= 6

'Type of MsgBox:
'const vbYesNo = 4
'const vbOKOnly = 0
'const vbAbortRetryIgnore = 2
'const vbYesNoCancel = 3
'const vbRetryCancel = 5

'Icon:
'const vbExclamation = 48
'const vbQuestion = 32
'const vbCritical = 16
'const vbInformation = 64

'const vbSystemModal = 4096
'const vbDefaultButton1 = 0
'const vbDefaultButton2 = 256
'const vbDefaultButton3 = 512
'const vbDefaultButton4 = 768

pytanie = msgbox("Czy kontynuowaæ?", vbYesNo+vbCritical, "Pytanie")

if pytanie=vbYes then
  Msgbox "Zadanie bedzie dalej wykonywane", vbInformation, "OdpowiedŸ"
else '(vbNo)
  MsgBox "zadanie przerwane", vbExclamation, "OdpowiedŸ"
end if