How to Catch Section Name via Report Object Name in crystal report

Dim rpt As ReportDocument
            Dim rep_name As String = "test_report"
            rpt = DirectCast([Assembly].GetEntryAssembly.CreateInstance(rep_name), ReportDocument)

            Dim crSections As CrystalDecisions.CrystalReports.Engine.Sections
            crSections = rpt.ReportDefinition.Sections
            For Each crSec As CrystalDecisions.CrystalReports.Engine.Section In crSections
                MsgBox(crSec.Name)
            Next