Imports Microsoft.Office.Interop

Module Module1
    Sub Main()
        ' Open the presentation               
        Dim myApp = New PowerPoint.Application()
        Dim sName As String

        sName = InputBox$(" Δώσε το πλήρες path του αρχείου : ", "Παράθυρο Διαλόγου ")
        MsgBox("Άνοιγμα του : " & sName)

        myApp.Visible = msoTrueDim
        MyPresentation = myApp.Presentations.Open(sName, msoTrue, msoTrue, True)

        ' get the first slide
        Dim MyFirstSlide = MyPresentation.Slides(1)
        Dim sb = String.Empty

        ' iterate through all shapes in slide and get text               
        For i = 1 To MyFirstSlide.Shapes.Count
            sb = sb & MyFirstSlide.Shapes.Item(i).TextFrame.TextRange.Text & Environment.NewLine
        Next (i)

        ' show message box with the texts               
        MsgBox(sb.ToString)
        ' close presentation               
        MyPresentation.Close()
    End Sub

    Private Function MyPresentation() As Object
        Throw New NotImplementedException
    End Function

    Private Function msoTrue() As Microsoft.Office.Core.MsoTriState
        Throw New NotImplementedException
    End Function

    Private Function ppt_filename() As String
        Throw New NotImplementedException
    End Function

    Private Function msoTrueDim() As Microsoft.Office.Core.MsoTriState
        Throw New NotImplementedException
    End Function

End Module