Abrir un archivo de power point desde visual basic

Tengo un botón con el siguiente código, pero solo abre el archivo si previamente esta abierto el programa de power point, pero yo necesito que lo abra el archivo aunque no este abierto power point. ¿Cuál es mi error o que me falta?
Private Sub Command5_Click()
Dim objppt As New PowerPoint.Application
Dim xppt As PowerPoint.Presentation
Set objppt = New PowerPoint.Application
Set xppt = objppt.Presentations.Open(App.Path & "\prueba.ppt")
End Sub