VBA: Brugerdefineret funktion med Lopslag

Hej Alle.
Jeg har en brugerdefineret funktion:

Function Beregnfelt(Type, TK, L, VBL, B, VBB, var)

For at kunne finde beregne Beregnfelt skal jeg bruge 2 yderligere variabler, hvis værdier afhænger Type.

Jeg har løst problemet med:

if Type=1 then
  x1=23
  x2=11
end if
if Type=2 then
  x1=21
  x2=56
end if
osv. osv.

Men da jeg har over 60 forskellige typer, bliver det en lang og ikke særlig køn kode.

Spørgsmålet er om jeg kan bruge Lopslag (Hlookup) i stedet for.
Jeg har Type, x1 og x2 i tabelformat på arket "Felttyper"

Jeg har prøvet med nedenstående, men får fejlen type mismatch

Function Beregnfelt(Type, TK, L, VBL, B, VBB, var)

Dim DRange As Range
Set DRange = Sheets("Felttyper").Range("B2:D64")
Dim x1 As Variant

x1=application.hlookup(Type, DRange, 2, False)
'vis om det er den rigtige værdi af x1
Msgbox (x1)

end function

Er der nogle, der kan hjælpe mig videre ??