Extract first line of notes section on each slide - how to?

[John Wilson]

I think I would set an object ref to the opened presentation

Dim openPres As Presentation
Dim osld As Slide
Set openPres = Presentations.Open(FileName)
For Each osld In openPres.Slides
' do whatever
Next osld