datum = #12/24/2001# 'ändra till ett datum som har varit så får du se...
If datum < Date Then
Label1.Caption = "inget giltigt datum"
Else
Label1 = datum - Date
End If