Try This...

Code:
    Dim currDate As Date
    
    currDate = Now
    Label1.Caption = Format(currDate, "MMMM d")
    Label2.Caption = Format(currDate, "YY")