FORM 1
Private Sub Buscar_Click()
    On Error GoTo ErrorBuscar
    CMDialog.Filter = "Formato de sonido MP3 (*.mp3)|*.mp3|Archivos de audio (*.wav)|*.wav|Formato de sonido MIDI (*.midi)|*.midi|Todos los Archivos (*.*)|*.*"
    CMDialog.FilterIndex = 1
    CMDialog.Action = 1
     RutaText.Text = FRMConfiguracion.CMDialog.FileName
SalirBuscar:
    Exit Sub
ErrorBuscar:
    MsgBox Err.Description, 16, "ERROR"
    Resume SalirBuscar
End Sub

Private Sub Salvar_Click()
RutaText = Sonido
Unload Me
End Sub

FORM 2
Private Sub Timer1_Timer()
HoraActual.Caption = Time$
If Hora.Text <= HoraActual And DespertadorSi = True Then
On Error Resume Next
Set Objeto = CreateObject("WScript.Shell")
Objeto.Run Sonido
Beep
End If
End Sub

MODULE 1
Global Sonido As Integer

Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Sub Form_Load()
    Dim Ubicacion As String, retUbicacion As String
    retUbicacion = Space(255)
    Ubicacion = "c:\Archivos de programa\eMule\Incoming\08-Marcha de san lorenzo.mp3"
    GetShortPathName Ubicacion, retUbicacion, 255
    MsgBox retUbicacion
End Sub