Dim hReport As Report Dim hReportSection As ReportSection hReportSection = hReport [ Index As Integer ]