Uso 2 variabili Date!

Gente qui c'è da rabbrividire...

Dopo ore di testardaggine gurdate cosa ho trovato:

In un form, inserite un commandbutton e copiate il seguente codice:
codice:
Private Sub Command1_Click()
Dim Data1 As Date, Data2 As Date
    Data1 = CDate("8:45")
    Data2 = CDate("0:30")
    
    Data2 = Data2 + Data1
    MsgBox "8:45 + 0:30 = 9:15, giusto? Lui dice che è " & (Data2 = #9:15:00 AM#)
    
    MsgBox "Proviamo con DateAdd..."
    
    Data1 = CDate("8:45")
    Data2 = CDate("0:30")
    
    Data1 = DateAdd("n", 30, Data1)
    MsgBox "8:45 + 0:30 = 9:15, giusto? Lui dice che è " & (Data1 = CDate("9:15"))
End Sub
Non vi dico i risultati!

Ho anche capito dov'è il bug... ma sono ancora scioccato...

Ve lo narro quando mi sono ripreso...