Well for starters, if I wanted to know if there was a section break in my selection and if so, what type it was, I might try something like this.
Code:
Sub WhatIsIt()
Dim aRng As Range
If Selection.Sections.Count > 1 Then
MsgBox "Section Break Type: " & Selection.Sections.Last.PageSetup.SectionStart
Else
MsgBox "You don't have a section break there"
End If
End Sub
When it comes to the other break types, I'm seeing ascii values of 11 and 14 for column and line breaks.