VLOOKUP form a workbook to another one

Hello
I have this problem. I am trying to make several files that grab information from another workbook with loads of rows with lots of data. So I'm trying to use the vlookup function to grab that information when it is required. I am not really good at this and all I know I've learned it myself so sorry if there are many many mistakes. Here is what I've written

Sub Buscar()
Dim anexo As Variant
Dim cliente As String
Dim maturity As Date
Dim contacto As String
Dim contactod As String
Dim responsable As String
Dim texto As String
Dim i As Integer
Dim fecha As String
Dim evento As String
Dim referencia As String
'buscar info general
texto = InputBox("Introducir número de anexo")
Range("C5") = texto
anexo = texto
Workbooks.Open Filename:="C:\Users\Ana Méndez\Desktop\Caralogo base.xlsx"
    Sheets("Anexos").Activate
    cliente = WorksheetFunction.VLookup(anexo, Range("A1", "F1000"), 2, False)
    maturity = WorksheetFunction.VLookup(anexo, Range("A1", "F1000"), 3, False)
    contacto = WorksheetFunction.VLookup(anexo, Range("A1", "F1000"), 4, False)
    contactod = WorksheetFunction.VLookup(anexo, Range("A1", "F1000"), 5, False)
    responsable = WorksheetFunction.VLookup(anexo, Range("A1", "F1000"), 6, False)
Workbooks.Open Filename:="C:\Users\Ana Méndez\Desktop\Formato 1.xlsm"
    Sheets("Formato").Activate
    Range("c7") = cliente
    Range("c8") = maturity
    Range("c9") = contacto
    Range("c10") = contactod
    Range("c11") = responsable

Thank you for all of your help!

The problem is in the WorksheetFunction.VLookup part. I get a mistake saying that it is the mistake 1004 and that Vlookup cannot be obtained from worksheetfunction

Thank you!
Well, in that part it could be changed just as you say, but I was trying to make that part work because I was using the same function afterwards, searching different lines of every category,but now since you are saying it can be changed I think that it could be replaced by just copy-pasting the information like this

For i = 1 To 4000
    If Cells(i, 1) = texto Then fecha = Cells(i, 2).Value And evento = Cells(i, 3).Value And referencia = Cells(i, 4).Value
        NextRow = WorksheetFunction.CountA(Columns("A:A")) + 1
        Cells(NextRow + 14, 1).Value = "1"
        Cells(NextRow + 14, 2).Value = fecha
        Cells(NextRow + 14, 3).Value = evento
        Cells(NextRow + 14, 4).Value = referencia
Next i

I'll try to do that properly then!