Or use FORMAT
VB Code:
  1. Private Sub Form_Load()

  2.  MsgBox Format(Date, "dd/mm/yyyy")

  3. End Sub