Boa Noite pessoal estou fazendo um formulario de cadastro com campos de alteração porem na linguagem abaixo quando vou inserir o novo cadastro ao clicar o no botao salvar ele retorno o erro 13

Private Sub Lista_Click()

Dim codigo As Long
codigo = Lista.List(Lista.ListIndex, 0)
Me.TextBoxQtd.Value = codigo

End Sub

Private Sub TextBoxQtd_Change()

Dim codigo As Long
codigo = Me.TextBoxQtd.Value      *ERRO NESTE CAMPO
On Error Resume Next

Me.TextBoxCandidato = Application.WorksheetFunction.VLookup(codigo, Sheets("RelacaoCandidato").Range("A:E"), 2, 0)
Me.CboResultado = Application.WorksheetFunction.VLookup(codigo, Sheets("RelacaoCandidato").Range("A:E"), 3, 0)
Me.CboProcesso = Application.WorksheetFunction.VLookup(codigo, Sheets("RelacaoCandidato").Range("A:E"), 4, 0)
Me.CboCategoria = Application.WorksheetFunction.VLookup(codigo, Sheets("RelacaoCandidato").Range("A:E"), 5, 0)

End Sub

Irei encaminhar o arquivo se alguem puder ajudar