¿Cómo ejecuto vídeo en WindowsMediaPlayer, con Application.Path...?

Esta es la segunda pregunta del mísmo tema que expongo a ustedes.., pondré de antemano una pequeña codificación que aparentemente permite presentar el formulario con la ventana del WindiowMediaPlayer.

Option Explicit

Private Sub Form_Activate( )

    Dim STR As String
    STR = Dir(Application.Path & "/" & "C:\Users\MABA\Desktop\UnconesPlus - 9Basica\Vtca_9B\V_CCFF\LA IMPORTANCIA DE LA EDUCACIÓN FÍSICA[1].MP4")
           If STR <> "" Then
             Do
                WindowsMediaPlayer1.URL = STR
                STR = Dir
                Loop Until STR = " "
           End If

End Sub

Haré varias Observaciones: la 1º.- Deseo que éste código se me ejecute en un CommandButton_Click( ), pero el código se ejecuta en el Form_Activate, 2º La ruta tiene que ser dinámica y no Estática.., pero la propiedad Application.Path.., reemplaza a la propiedad App. Path en VBA 2007..., y por último.. Lo que no veo es: ¿.. En donde está su reemplazo..?. En una de las líneas esta: WindowsMediaPlayer1. URL = STR, especifíca su ruta pero no lo ejecuta osea no esta esto: WindowsMediaPlayer1. Controls. Play..., pero ojo..., cuando la pongo en la siguiente línea y ejecuto el programa este lo presenta pero no lo ejecuta..., osea no ejecuta el vídeo... Por favor ¿En qué estoy mal...? O que hace falta...