VisualBasic VLookUp

Guten Morgen zusammen!

Ich hab folgendes Problem. Bei meiner Vlookup funktioniert die Ausführung irgendwie nicht..

Public Function Test(ByVal X As String) As Double

Test = Application.WorksheetFunction.VLookup(X, Sheets("Tabelle1").Range("C36:I54"), 5, False)

End Function

Weiß einer von euch eventuell warum?

Vielen Dank

Test = Application.WorksheetFunction.VLookup(X, Workbooks("Test.xls").Sheets("Tabelle1").Range("C36:I54"), 5, False)

Type of Test ist Variant.
X As String? Bist du sicher?

Welcher Error kommt denn?