This line is doing what you asked it to! (Adding the date to the Slide Title.)

 osld.Shapes.title.TextFrame.TextRange = MonthName(lngM) & " " & lngY