'/**
' * Simulate javascript:confirm() function, with default button is No
' */
Function ShowConfirm(title, message)
  result = MsgBox(message, vbYesNo + vbDefaultButton2 + vbQuestion, title)
  If result = vbYes Then 
    ShowConfirm = true
  Else 
    ShowConfirm = false
  End If
End Function

Function ShowConfirmOkCancel(title, message)
  result = MsgBox(message, vbOkCancel + vbDefaultButton2 + vbInformation, title)
  If result = vbOk Then 
    ShowConfirmOkCancel = true
  Else
    ShowConfirmOkCancel = false
  End If
End Function