date e calcoli

[Gualeni Giovanni <ggualeni@tiscali.it>]

Ciao,
quesito della Susi:

Dim myDate,firstDate,lastDate As Date
Dim b As Boolean

myDate = New Date
b=ParseDate("15/08/2009",myDate)

firstDate = New Date
lastDate = New Date

If myDate <> Nil Then
        firstDate = myDate
        lastDate = myDate
End If

firstDate.Day = 1

lastDate.Day = 1
lastDate.Month = lastDate.Month+1
lastDate.Day = lastDate.Day-1

Il problema e' che firstDate  dovrebbe risultare 01/08/2009 invece  
risulta 31/08/2009!
Mi rendo conto che l'eta' che avanza non aiuta ma dove sta l'errore?

p.s.: se invece lascio myDate = Nil ... funziona (sic!)

Giovanni