'Declare variables     

        Dim StrYear As String

        Dim StrMonth As String

        

        StrYear = Year(StartDate())

        StrMonth = Month(StartDate())