[Resolvido]Erro no botão cancelar da imputbox!!

Criei o seguinte código para validar um condição da imputbox, mas quando clico no botão cancelar, dá erro!

Private Sub ValordoPedido__LostFocus()
Dim ValordoPedido As Single
ValordoPedido = InputBox("Favor digite o valor do fechamento do pedido! Para cancelar digite: ( 0 ) ")
If ValordoPedido <> 0 Then
resposta = MsgBox("Gerou o débito de: " & ValordoPedido, vbOK + vbCancel + vbInformation, "Informação!")
If resposta = vbOK Then
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Pedidos SET Pedidos.ValordoPedido = '" & ValordoPedido & "'" & " WHERE CódigoPedido = " & Me.CodigoPedido & ";"
DoCmd.SetWarnings True
End If
Else
MsgBox ("A operação acabou de ser cancelada!")
End If
End Sub

Grato,

Olá

Veja este tópico se ajuda:

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/810602031?r=320602031#320602031

Sucesso!

Problema resolvido, grato!