Day(dateexpression)
Returns a variant date corresponding to the string date expression that was passed in. dateexpression can be a string or any expression that can represent a date.
Example:
Sub Main
Dim MDate, MDay
MDate = #May 29, 1959#
MDay = Day(MDate)
Print "The Day listed is the " & MDay
End Sub