Reading PowerPoint "Section names" in Excel vba

Using Excel vba I would like to "read" the “Section Names” and the number of the next slide number from a PowerPoint. Referring to the simple example in the picture below, can anyone help with code (presumably in some sort of loop) to extract the "Section Name" and the number of the next slide: giving:

Greeting A

1

Greeting B

3

Greeting C

5