[Resolvido]Msg Box para impressão

Como cancelar a ação ao clicar no botão cancel da MsgBox

If KeyCode = vbKeyF6 Then

If MsgBox("Deseja Imprimir Está venda?", vbYesNo) = vbYes Then
stDocName = "Cupom"
DoCmd.OpenReport stDocName, acViewNormal
End If
End If

If KeyCode = vbKeyF6 Then

imprime = MsgBox("Deseja Imprimir Está venda?", vbQuestion + vbYesNo, "Imprimir")
Select Case imprime
Case vbYes
stDocName = "Cupom"
DoCmd.OpenReport stDocName, acViewNormal

Case vbNo
DoCmd.CancelEvent
MsgBox "Impressão Cancelada !", vbInformation, "Informando..."
End Select

End If

Amigo Claudio
Não funciona as 2 primeiras linhas ficam em vermelhos.

Postamos ao mesmo tempo!
Agora sim funfa Obrigada ao amigo Cláudio!

Experimenta assim, só pra teste.

imprime = MsgBox("Deseja Imprimir Está venda?", vbQuestion + vbYesNo, "Imprimir")
Select Case imprime
Case vbYes
stDocName = "Cupom"
DoCmd.OpenReport stDocName, acViewNormal

Case vbNo
DoCmd.CancelEvent
MsgBox "Impressão Cancelada !", vbInformation, "Informando..."
End Select

Bem que eu estranhei.
Valeu pelo retorno.
Abraço.