Data Type Functions VisualBasic Script

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