やりたかったこと。

Const suppressWarning = true
If suppressWarning Or (MsgBox("Are you sure?", vbYesNo) = vbYes) Then
  ' some dangerous operation goes here
End If

なんでダイアログが表示されるんだー