Hozzászólás: .xlam-ban vlookup használata

Hogyan kellene hivatkozni a xlam függvényre?
Beégessem? Mert így nem jó:

Public Function fioknev(id) As Variant
Dim tabla As Range
Dim hossz As Integer
id = id & „”
wb = ActiveWorkbook.Path
wbn = wb & „\Function2.xlam”

hossz = Len(id)

If hossz = 2 Then
Set wbb = wbn
Set tabla = Sheets(„Fiok”).Range(„C1:L200”)
fioknev = Application.WorksheetFunction.VLookup(id, tabla, 2, False)
End If

If hossz = 8 Then
Set wbb = wbn
Set tabla = Sheets(„Fiok”).Range(„A1:L200”)
fioknev = Application.WorksheetFunction.VLookup(id, tabla, 4, False)
End If

If hossz > 8 Then
id = Left(id, 8)
Set wbb = wbn
Set tabla = Sheets(„Fiok”).Range(„A1:L200”)
fioknev = Application.WorksheetFunction.VLookup(id, tabla, 4, False)
End If

End Function