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

[John Wilson]

This might get you started

Sub first_note()
Dim osld As Slide
Dim strCode As String
Dim strResult As String
Dim iPos As Integer
For Each osld In ActivePresentation.Slides
If osld.NotesPage.Shapes(2).TextFrame.TextRange.Paragraphs(1) Like "CODE*" Then
strCode = osld.NotesPage.Shapes(2).TextFrame.TextRange.Paragraphs(1)
iPos = InStr(strCode, "=")
strCode = Mid(strCode, iPos + 1)
End If
strResult = strResult & strCode
Next osld
MsgBox strResult
End Sub