Example - Day Function

Sub Main()
    Dim MDate, MDay
    MDate = "May 29, 1959"
    MDay = Day(MDate)
    MsgBox "The day listed is " & MDay
End Sub