Month(date) returns a Variant/Integer between 1 and 12, inclusive, representing the month for date
Sub dateDemo8() Debug.Print Month(Date) & "/" & Day(Date) End Sub