Для работы с датами есть схожая функция Date, теперь сделаем апгрейд нашим часам, добавив к ним еще и дату. Открой проект, который мы делали в предыдущем шаге, и добавь к нему еще 1 текстовое поле(Text2). Теперь нажми 2 раза на форму и у тебя опять появится окно кода с созданной процедурой, но теперь для формы:

Private Sub Form_Load() 

 End Sub 
 

Все что ты впишешь в эту процедуру, то у тебя будет загружаться вместе с формой. В ней впиши Text2.Text = Date, здесь текст в текстовом поле будет равен функции Date(текущая дата). Вот что у тебя должно получиться:

Private Sub Form_Load() 
 Text2.Text = Date 
 End Sub