Imports Microsoft.Office.Interop
Imports Microsoft.Office.Core.MsoTriState

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

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

        Dim somevar = New System.IO.FileInfo(sName)

        If somevar.Directory.Exists = False Then 
            MsgBox("Δεν βρέθηκε η διαδρομή" & somevar.DirectoryName & ".")
        Else
            If somevar.Exists = False Then
                MsgBox("Το αρχείο" & somevar.Name & "δεν βρέθηκε στην διαδρομή" & somevar.DirectoryName & ".")
            Else
                MsgBox("Άνοιγμα του : " & sName)
            End If
        End If

        myApp.Visible = msoTrue
        Dim MyPresentation = myApp.Presentations.Open(sName, msoTrue, msoTrue, True) 'MyPresentation -> Αντικείμενο παρουσίασης 

        ' 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

End Module