[Resolvido]cancelar ao confirmar Nao

ola pessoal

estou com um problema no codigo abaixo quando confirmo nao ele nao limpa o campo CboSigla e ainda executa a consulta atualização
alguem poderia dar uma olhada

' variavel para formatar a data com Hora
Dim DataDia
DataDia = Format(Now, "ddmm-hhmm")



'validação do campo de turnos
If IsNull(Me.CboSigla) Then
MsgBox "Escolha o Turno!!", vbCritical, "Atenção"
Me.CboSigla.SetFocus

Else

' menssagem para informar o usuario
If MsgBox("Voce esta Pretes Gerar o Pedido e exportar o Relatorio", vbExclamation + vbYesNo, "Atenção") = vbYes Then
DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\Enviados\" & Me.CboSigla.Column(0) & "-" & DataDia & ".xlsx"

'executa uma consulta para atualizar o campo sim/nao da tbl_Movimentacao
DoCmd.OpenQuery "Atualizar", acViewNormal

' atualiza a lista de pedidos e limpa campo turno
Me.ListaFalse.Requery
Me.CboSigla = ""

End If
End If

Ola Pessoal

consegui resolver com código abaixo para caso alguém precise.

Dim DataDia
DataDia = Format(Now, "ddmm-hhmm")

If IsNull(Me.CboSigla) Then
MsgBox "Escolha o Turno!!", vbCritical, "Atenção"
Me.CboSigla.SetFocus

Else

If MsgBox("Voce esta Prestes a Gerar relatorio de embarque", vbYesNo + vbInformation, "Atenção") = vbYes Then
DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\Enviados\" & Me.CboSigla.Column(0) & "-" & DataDia & ".xlsx"
DoCmd.OpenQuery "Atualizar", acViewNormal
Me.ListaFalse.Requery
Me.CboSigla = ""

MsgBox ("Relatorio Gerado com Sucesso"), vbInformation, "Atenção"
Else
MsgBox ("Relatorio Cancelado"), vbInformation, "Cancelado"
Me.CboSigla = ""
End If
End If

O fórum agradece o retorno. Sucesso.