Compruebalo lo mismo intenta con esto:
En un proyecto SIN formulario solo un modulo agrega lo siguiente
configura el proyecto para que lo primero que arranque sea el proseso
Sub Main()Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
sub main()
dim res as long
ruta="c:\musica\bla\bla\bla\...\music.mp3" '<-- indica la ruta COMPLETA del archivo mutimedia en tu caso el archivo xm
res=mciSendString("play " & Ruta, 0, 0, 0)
end sub
P.D.: Yo no tengo ningun tipo de archivo de musica o cancion con esa extensión, por ende te pongo esto que si no se reproduce entonces se tendria que convertir a otro formato como no se, desconozco plenamente su extructura xP