How do I change the default to "No"

Dim nRtnValue As Integer
nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices ?",
vbCritical + vbYesNo, "Distribute all Invoices")
If nRtnValue = vbYes Then
DoCmd.Hourglass True

Thanks in advance.........Bob Vance

.... vbCritical + vbYesNo + vbDefaultButton2 ...

Rob

"Bob" <(E-Mail Removed)> wrote in message news:e7fjif$19c$(E-Mail Removed)...
>
> How do I change the default to "No"
>
> Dim nRtnValue As Integer
> nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices ?",
> vbCritical + vbYesNo, "Distribute all Invoices")
> If nRtnValue = vbYes Then
> DoCmd.Hourglass True
>
> Thanks in advance.........Bob Vance
>

BRILLIANT Rob..........Thanks

"Rob Parker" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> ... vbCritical + vbYesNo + vbDefaultButton2 ...
>
> Rob
>
> "Bob" <(E-Mail Removed)> wrote in message news:e7fjif$19c$(E-Mail Removed)...
>>
>> How do I change the default to "No"
>>
>> Dim nRtnValue As Integer
>> nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices ?",
>> vbCritical + vbYesNo, "Distribute all Invoices")
>> If nRtnValue = vbYes Then
>> DoCmd.Hourglass True
>>
>> Thanks in advance.........Bob Vance
>>
>
>