Day(Date)
Sub Main1() Debug.Print "Today's date is: " & Date Debug.Print "The day of the month is: " & Day(Date) End Sub