[Resolvido]Problema com inputbox...

Um dia abençoado para todos.
Bom estou com um problema em parte de um código onde uma inputbox surge pedindo o código de um produto a ser excluído pois bem.
Se por acidente eu digitar um código que não esteja na lista da erro como tratar isso.

vai o código...

Private Sub btnExcluirProduto_Click()

Dim codigoProduto As String
Dim IntQtd As Integer

If Not IsNull(txtCodigoVenda) Then
codigoProduto = InputBox("Informe o código do produto a ser excluído:", _
"Exclusão de Produto")
txtNomePro.SetFocus
Else
Exit Sub
End If

'Aqui que da o erro mas não sei como resolver.
If codigoProduto <> "" Then
If IsNumeric(codigoProduto) Then
'Coloca na variável a soma das quantidades do mesmo produto para a venda corrente
IntQtd = DSum("qtdProduto", "DetalheVenda", "codVenda = " & Me.txtCodigoVenda & " And CodProduto = " & codigoProduto & "")
'Deleta o registro na tabela DetalheVenda
CurrentDb.Execute "DELETE * FROM DetalheVenda WHERE codVenda = " & Me.txtCodigoVenda & " And CodProduto = " & codigoProduto & ""
'Atualiza o estoque na tabela Produto
CurrentDb.Execute "UPDATE Produto Set qtdEstoque = qtdEstoque + " & IntQtd & " WHERE CodProduto = " & codigoProduto & ""
atualizaLista
Else
MsgBox "Código de produto inválido!", _
vbExclamation, "Exclusão de Produto"
txtProdutoQtd.SetFocus
End If
End If

End Sub

Coloque um Dcount para pesquisar a tabela...

If DCount("Código","SuaTabela","Código = " & CodigoProduto & "") = 0 Then
   MsgBox "Produto não cadastrado",VbCritical,"ATENÇÃO"
Else

Código para exclusão
End If


Cumprimentos.

Valeu mesmo Piloto pela ajuda e consegui fazer um código para verificar se o valor digitado na inputbox é diferente de int e sair da sub
olha como ficou Vlw mesmo que Deus o Abençoe sempre!

Private Sub btnExcluirProduto_Click()

Dim codigoProduto As String
Dim IntQtd As Integer



If Not IsNull(txtCodigoVenda) Then
codigoProduto = InputBox("Informe o código do produto a ser excluído:", _
"Exclusão de Produto")
txtNomePro.SetFocus

Else
Exit Sub
End If
'Esse aqui que fiz rs
If Not IsNumeric(codigoProduto) Then
MsgBox "Somente Números Neste Campo!"
Exit Sub
End If

If DCount("codVenda", "DetalheVenda", "CodProduto = " & codigoProduto & "") = 0 Then
MsgBox "Produto não cadastrado", vbCritical, "ATENÇÃO"

Else

If codigoProduto <> "" Then
If IsNumeric(codigoProduto) Then


'Coloca na variável a soma das quantidades do mesmo produto para a venda corrente
IntQtd = DSum("qtdProduto", "DetalheVenda", "codVenda = " & Me.txtCodigoVenda & " And CodProduto = " & codigoProduto & "")
'Deleta o registro na tabela DetalheVenda
CurrentDb.Execute "DELETE * FROM DetalheVenda WHERE codVenda = " & Me.txtCodigoVenda & " And CodProduto = " & codigoProduto & ""
'Atualiza o estoque na tabela Produto
CurrentDb.Execute "UPDATE Produto Set qtdEstoque = qtdEstoque + " & IntQtd & " WHERE CodProduto = " & codigoProduto & ""

atualizaLista
Else
MsgBox "Código de produto inválido!", _
vbExclamation, "Exclusão de Produto"
txtProdutoQtd.SetFocus
End If
End If
End If

End Sub

O Fórum agradece o Retorno.