Procv com VBA, muito Fácil

Pessoal pediram para criar um procedimento que estivesse sendo aplicado a Procv, no VBA a Procv se chama Vlookup()
então vamos ao procedimento:


Sub ProcuraV()
On Error GoTo nossoerro

Dim codigo As Variant
Dim tabela As String
Dim vf As Boolean
Dim entrada As Variant

codigo = InputBox("informe o código do cliente")
tabela = "A:E"
vf = False

nome = Application.WorksheetFunction.VLookup(Val(codigo), Range(tabela), 2, vf)
endereco = Application.WorksheetFunction.VLookup(Val(codigo), Range(tabela), 3, vf)
bairro = Application.WorksheetFunction.VLookup(Val(codigo), Range(tabela), 4, vf)
salario = Application.WorksheetFunction.VLookup(Val(codigo), Range(tabela), 5, vf)

MsgBox "Nome: " & vtab & nome _
       & vbCr & "Endereço: " & vtab & endereco _
       & vbCr & "Bairro  : " & vtab & bairro _
       & vbCr & "Salário : " & vtab & salario

nossoerro:
    If Err.Number = 1004 Then
        MsgBox "Este código não está cadastrado", vbCritical
    End If
End Sub