Den første dag i måneden

Jeg skal indsætte dato f.eks. 01-02-08 under values i et script

Jeg forsøger at sætte datoen til den første i denne måned hvis datoen er 13 eller mindre eller den første i næste måned hvis dagens dato er 14 eller højere. Har funde følgende script:

Dim datDate As Date
Dim intDay As Variant

datDate = Date
intDay = Day(datDate)

'check for day being 13th of month or less. If so calculate from first of current month
'else if it's higher calculate from 1st of following month
If intDay <= 13 Then
datDate = DateSerial(YEAR(Date), Month(Date), 0)
Else
datDate = DateSerial(YEAR(Date), Month(Date) + 1, 1)
End If