Data Type Functions VisualBasic Script

Sub FormatData()
   Debug.Print Format$(Now, "Short Date")
End Sub