Anfangstag des Monats ermiteln mit VBA

Function den ersten Tag des Monats (Mo..So) ermitteln.
Mit welchen Wochentag fängt ein Monat an?
Ich habe mir das so vorgestellt:

Function WochenTag(Jahr as long, Monat as long) as Integer
' Code
End Function



Sub WochenTagName
Dim TagNr as Integer
TagNr = WochenTag(2007,1)
If TagNr = 1 then MsgBox "Mo"
If TagNr = 2 then MsgBox "Di"
'usw.
End Sub


Würde mich auf eine Lösung freuen - Danke

Freundliche Grüße

Werner