gestione date e ore con visual basic

Private Sub CommandButton1_Click()
'(rem variabili tipo data e tempo)
Dim tempo As Date
'(Date() fornisce data corrente giorno/mese/anno)
'(oppure all'americana mese/giorno/anno)
Lista.AddItem (Date)
'(day(date) fornisce giorno data corrente)
Lista.AddItem (Day(Date))
'(month(date) fornisce mese data corrente)
Lista.AddItem (Month(Date))
'(year(date) fornisce anno data corrente)
Lista.AddItem (Year(Date))
'(DateSerial(anno,mese,giorno)assegna data )
Lista.AddItem (#12/31/1998#)
Lista.AddItem (DateSerial(1998, 12, 31))
Lista.AddItem (DateSerial(1995, 11, 30))
Lista.AddItem ("----------------------")
'(Time() fornisce tempo corrente ore,minuti,secondi
Lista.AddItem (Time())
'(hour(time) fornisce ora corrente)
Lista.AddItem (Hour(Time))
'(minute(time) fornisce minuti ora corrente)
Lista.AddItem (Minute(Time))
'(second(time) fornisce secondi ora corrente)
Lista.AddItem (Second(Time))
'(TimeSerial(ore,minuti,secondi) assegna tempo)
Lista.AddItem (TimeSerial(16, 30, 50))
tempo = TimeSerial(18, 20, 45)
Lista.AddItem (tempo)
Lista.AddItem (Hour(tempo))
Lista.AddItem (Minute(tempo))
Lista.AddItem (Second(tempo))
End Sub

Private Sub UserForm_Click()

End Sub