How to open an existing powerpoint file?

[wendymelon]

DOes anybody know how to open an existing powerpoint presentation?

Below are my current codes:

Private Sub cmdOpenFile_Click()
    CommonDialog2.InitDir = "C:\"
    CommonDialog2.ShowOpen
    
    If CommonDialog2.FileName = "" Then
        MsgBox "No file is opened", vbInformation, "Open File"
    Else
        Set ppApp = New PowerPoint.Application
        Set ppPresent = ppApp.Presentations.Open(CommonDialog2.FileName, msoCTrue, msoCTrue, msoCTrue)
        ppApp.Visible = msoTrue
    End If
    
End Sub

I get an error of:

Presentation(unknown member) : Invalid request. The Powerpoint Frame window does not exist.

The debugging line is at

Set ppPresent = ppApp.Presentations.Open(CommonDialog2.FileName, msoCTrue, msoCTrue, msoCTrue)

What is wrong with my code?