[Resolvido]Erro em tempo de execução 13 no InputBox

Boa noite Pessoal,

Como resolvo o problema do BD quando gera erro ao cancelar ou confirmar a janela mostrada pelo código - Numero = Nz(InputBox("Nº Ordem de Serviço"), 0) - sem colocar valor algum.

Tente usando o On Error para cancelar a mensagem.

Sua sugestão solucionou outra dúvida minha, estou utilizando On Error Resume Next antes da instrução

Obrigado Criquio.

Eu aconselharia a não usar o Resume Next, pois se acontecer algum outro erro, o sistema poderá não funcionar e você não saberá o motivo porque não terá mensagem de erro. O erro deve ser tratado e não evitar todas as mensagens. Nesse caso, você já tem o número da mensagem que aparece. Então deve usá-lo para que essa mensagem não seja exibida, mas permitindo que seja avisado caso ocorra outro tipo de erro, para que possa ajustar o sistema caso necessário. Seria algo assim:

Código:

On Error GoTo TrataErro

    InputBox...

TrataErro:
    If Err.Number = 0 Or Err.Number = 13 Then
        Resume Next
    Else
        MsgBox "Ocorreu um erro no sistema. Veja os detalhes do erro:" & VbCrLf & vBcRlF & "Número do erro: " & Err.Number & vBcRlF & "Descrição: " & Err.Description, vbCricrial, "Erro"
    End If