Gravar dados inseridos no user form

[Fabiano Souza]

Boa noite, pessoal.

Sou novato em VBA e estou tentando criar um formulário para lançamento de algumas informações. Esse formulário coleta o nome e o departamento do funcionário baseado no numero de matricula (txtCIF) inserido utilizando Vlookup. Existem outras txtBox (Data e Observação) que são gravadas em uma planilha.

Tive um problema com o código pois ao gravar, recebo a mensagem de erro de tempo de execução "13" - Tipos incompatíveis. Ao depurar o erro, me cai na linha codigo = txtCIF.

Envio o código abaixo, poderiam me auxiliar?

"Vlookup"

Private Sub txtCIF_AfterUpdate()

Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim mensagem

codigo = txtCIF
Sheets("banco").Select
Set intervalo = Range("c2:g250")

On Error GoTo Erro

pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False)
txtNome = pesquisa
pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
txtDepartamento = pesquisa1

Set intervalo = Range("c2:d250")

On Error GoTo Erro

Exit Sub
Erro:
texto = "Digite CIF válida"
mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub

"Gravação das informações"

Private Sub cmdGravar_Click()

'Ativar a primeira planilha
ThisWorkbook.Worksheets("Dados").Activate
'Selecionar a célula A3
Range("A2").Select

'Procurar a primeira célula vazia
Do
  If Not (IsEmpty(ActiveCell)) Then
      ActiveCell.Offset(1, 0).Select
  End If
Loop Until IsEmpty(ActiveCell) = True

'Verificar se foi digitado um nome na primeira caixa de texto
If txtCIF.Value = "" Then
     MsgBox "Digite a CIF do Monitor"
     txtCIF.SetFocus
     Exit Sub
End If

'Carregar os dados digitados nas caixas de texto para a planilha
ActiveCell.Value = txtCIF.Value
ActiveCell.Offset(0, 1).Value = txtData.Value
ActiveCell.Offset(0, 2).Value = txtNome.Value
ActiveCell.Offset(0, 3).Value = txtDepartamento.Value
ActiveCell.Offset(0, 4).Value = cboMotivo.Value
ActiveCell.Offset(0, 5).Value = txtObservação.Value

'Limpar as caixas de texto
txtCIF.Value = Empty
txtData.Value = Empty
txtNome.Value = Empty
txtDepartamento.Value = Empty
txtObservação = Empty

'Limpar as caixas de combinação
cboMotivo.Value = Empty

'Colocar o foco na primeira caixa de texto
txtCIF.SetFocus
End Sub