Code:
Option Explicit

Private Sub Form_Load()
    Label1.Caption = "Hello. Today is " & Date & ", and " & Time
End Sub

Private Sub Timer1_Timer()
    '//Interval=1000
    Label1.Caption = "Hello. Today is " & Date & ", and " & Time
End Sub