¿...Como crear ruta dinámica con App.Path...?

¿.. Cómo puedo crear Ruta Dinamica con App. Path en VBA de Excel 2007..?. Deseo ejecutar un vídeo con WindowsMediaPlayer dentro de un formulario aplicando con un CommandButton_Click ( ).., pero aplicando la propiedad Application. Path.., bueno.., pongo application porque trabajo con VBA de Excel 2007, para que de manera dinámica cuando se instale el sistema en otro ordenador se convierta en dinámica. Le expongo éste código de antemano:

Private Sub BtnPlay_Click()
    Dim STR As String
    Dim Ejecutar As String
      On Error Resume Next
    AbrirVideo.ShowOpen
      STR = Dir(Application.Path & "/" & "/LA IMPORTANCIA DE LA EDUCACIÓN FÍSICA[1].MP4")
           frm_V3.Caption = AbrirVideo.FileTitle 'La importancia de la Educación Física..'
           STR = AbrirVideo.Filename
           Ejecutar = WindowsMediaPlayer2.Control.Play(STR)
End Sub

Este código me activa el cuadro de Commondialog1.., pero no deseo eso sino que directamente me busque se conecte y se ejecute el vídeo en el formulario... Nada más...

De pronto algún código...