Interromper código

Tenho este código para verificar se produto está cadastrado ,e não estiver como faço para não fazer nenhuma ação ao em ok na msgbox?

If IsNull(DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")) Then
MsgBox " PRODUTO NÃO CADASTRADO ", vbInformation, "ATENÇÃO"
Me.Undo
Cancel = True

If IsNull(DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")) Then
MsgBox " PRODUTO NÃO CADASTRADO ", vbInformation, "ATENÇÃO"

Exit Sub
End If

Ola amigo Leandro já testei assim o problema é se tenho por exemplo produtos listados e terceiro não está cadastrado ao clicar em ok da msg automaticamente salva os dois listados , e começa nova venda.
o que Eu preciso continuar a listar os produtos.

O código está assim

Private Sub codbarras_AfterUpdate()
Dim Posicao As Long
Dim codigoProduto As Variant
Dim qtdProduto As Double
Select Case CodBarras
Case 1 To 8
Me.Texto52.Visible = True

End Select
Posicao = InStr(CodBarras, "*")
If Posicao > 0 Then
qtdProduto = CLng(left(CodBarras, Posicao - 1))
codigoProduto = CDbl(right(CodBarras, Len(CodBarras) - Posicao))
Else
codigoProduto = Me.CodBarras
qtdProduto = 1
End If
If IsNull(DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")) Then
MsgBox " PRODUTO NÃO CADASTRADO ", vbInformation, "ATENÇÃO"
Exit Sub
End If
DoCmd.GoToControl "detalhevenda"
DoCmd.GoToRecord , , acNewRec
Forms!frmvendas!detalhevenda!Quant = qtdProduto 'Essa linha aqui que está atribuíndo a quantidade
Forms!frmvendas!detalhevenda!ValorUnit = DLookup("valorunit", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!detalhevenda!Texto3 = DLookup("descrição", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!txtproduto = DLookup("descrição", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!detalhevenda!Codproduto = DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")
RunCommand acCmdSaveRecord
End sub

Onde está o erro ?

Já tentei alterar linha mas também não funcionou

If IsNull(DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")) Then
MsgBox " PRODUTO NÃO CADASTRADO ", vbCritical, "ATENÇÃO"
Me.Undo
Cancel = True
Exit Sub
End If

Ola Agravina,

Testa assim:

Private Sub codbarras_AfterUpdate()
Dim Posicao As Long
Dim codigoProduto As Variant
Dim qtdProduto As Double
Select Case CodBarras
Case 1 To 8
Me.Texto52.Visible = True

End Select
Posicao = InStr(CodBarras, "*")
If Posicao > 0 Then
qtdProduto = CLng(left(CodBarras, Posicao - 1))
codigoProduto = CDbl(right(CodBarras, Len(CodBarras) - Posicao))
Else
codigoProduto = Me.CodBarras
qtdProduto = 1
End If
If IsNull(DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")) Then
MsgBox " PRODUTO NÃO CADASTRADO ", vbInformation, "ATENÇÃO"
Exit Sub

Else

DoCmd.GoToControl "detalhevenda"
DoCmd.GoToRecord , , acNewRec
Forms!frmvendas!detalhevenda!Quant = qtdProduto 'Essa linha aqui que está atribuíndo a quantidade
Forms!frmvendas!detalhevenda!ValorUnit = DLookup("valorunit", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!detalhevenda!Texto3 = DLookup("descrição", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!txtproduto = DLookup("descrição", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!detalhevenda!Codproduto = DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")
RunCommand acCmdSaveRecord

End If

End sub


Nivaldo.

Não funcionou pois o código continua não é interrompido se não cadastrado