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.

Sub Main
    Dim MDate, MDay
    MDate = #May 29, 1959# 
    MDay = Day(MDate) 
    Print "The Day listed is the " & MDay
End Sub