Para Hector Miguel

Hola Héctor Miguel.
La demora en poner en practica tus insinuaciones acerca de Pantalla y Música
antes de abrir Libro,se deben al desconocimiento por mi parte acerca del
tema.
Me he atrevido y me sale un error aún.
Modulo
Option Private Module
Public Const Archivo As String = "C:\Mis Documentos\\Mi
música\Coleccionista\Boleros I\DosAlmasLeoMarini.mp3"
Public Declare Function Usar_mciExecute _
Lib "winmm.dll" Alias "mciExecute" ( _
ByVal Comando As String) As Long
Public Declare Function ObtenRutaCorta _
Lib "Kernel32" _
Alias "GetShortPathNameA" ( _
ByVal RutaLarga As String, _
ByVal RutaCorta As String, _
ByVal Bufer As Long) As Long
Public Function RecortarNombre(ByVal NombreLargo As String) As String
Dim Pos As Byte, NombreCorto As String
NombreCorto = Space(128)
Pos = ObtenRutaCorta(NombreLargo, NombreCorto, Len(NombreCorto))
RecortarNombre = LCase(Left(NombreCorto, Pos))
End Function
Sub KillTheForm()
Usar_mciExecute "Stop " & RecortarNombre(Archivo)
Unload UserForm1
End Sub

This Workbook
Private Sub Workbook_Open()
Usar_mciExecute "Play " & RecortarNombre(Archivo)
UserForm1.Show
End Sub

Al tratar de ejecutar me sale:"El comando especificado necesita un
alias,archivo,controlador o nombre de dispositivo.Escriba uno".
Qué modificación debo hacer para evitar tal aviso.
Gracias por tus invaluables enseñanzas.


Cordialmente
Luis Caro
programasxxxenxxxcomputador@gmail.com
Quitar xxxxxx para responder.