si, fai come ha detto wild:
codice:
Private Sub Form_Load()
    Text1.Text = Format(now,"DD/MM/YYYY")
End Sub