VBA: Datum erzeugen | Herbers Excel-Forum

Moin zusammen,
ich stehe ja immer noch mit Excel-VBA auf Kriegsfuß, daher heute mal wieder eine wahrscheinlich blöde Frage:
wie kann ich in VBA ein Datum erzeugen?
Ausgangslage: ich habe eine Variable mit einer Jahreszahl (Integer, z.B. 2009)
Ziel: ich möchte ein Datum mit dieser Jahreszahl zurückgeben (z.B. den 01.01.2009)
Das ganze soll in einer Funktion zum Einsatz kommen.
Was ich probiert habe, aber NICHT funktioniert:

Function Test(Tag As Variant)
Dim Jahr As Integer
Jahr = DatePart("yyyy", Tag)
Test = WorksheetFunction.Datum(Jahr , 1, 1)
End Function