Visual Basic - Archivo con lista

Tengo un archivo .txt que contiene una lista de archivos de sonido para reproducir, pero al hacer click en el boton que corresponde no me reproduce nada, aqui les paso el codigo, espero que alguien me pueda ayudar.

Private Sub Command1_Click()
Open "MiLista.txt" For Append As #1

For lnArchs = 0 To File1.ListCount - 1
If File1.Selected(lnArchs) Then
Print #1, File1.Path + "\" + File1.List(lnArchs)
End If
Next
Close #1

Dim stArchivoDeMusica As String

Open "MiLista.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, stArchivoDeMusica
MMControl1.Command = "Open"
MMControl1.From = 0
MMControl1.Command = "Play"

Loop
Close #1
End Sub

Hola.
Lo que no veo en tu código es dónde le pasas al MMControl1 el contenido de stArchivoDeMusica. Busca entre las propiedades del MMControl1 si hay alguna para eso. No tengo a mano ningún proyecto con este control. Pero se me ocurre que por ahí anda la cosa, que el MMControl1 no está enterado de cual es el archivo que tiene que reproducir.
Saludos.

pues mira, preciosa, la primera parte del código

Private Sub Command1_Click()
Open "MiLista.txt" For Append As #1

For lnArchs = 0 To File1.ListCount - 1
If File1.Selected(lnArchs) Then
Print #1, File1.Path + "\" + File1.List(lnArchs)
End If
Next
Close #1

veo que es para crear la lista, porque que estás creando MiLista.txt con los archivos seleccionados desde el control File1.
y es UNICAMENTE en la segunda parte del código en donde le indicas al control
MMcontrol1 que reproduzca pero no le estás jamás diciendo qué archivo reproducir
supongo que esto que sigue deberá ir en el botón de reproducir, y NO TODO el código que pusiste, porque lo anterior es para generar tu lista de archivos de música como ya dijimos:

Dim stArchivoDeMusica As String

Open "MiLista.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, stArchivoDeMusica
MMControl1.Command = "Open"
MMControl1.From = 0
' POR AQUÍ DEBERÁS DECIRLE QUE ARCHIVO REPRODUCIR, EL QUE ESTÁ EN LA VARIABLE 'stArchivoDeMusica', PERO NO SE LO DICES
MMControl1.Command = "Play"

Loop
Close #1
End Sub

Hola !!, y como le digo que archivo reproducir ?

Con la propiedad "FileName", mi amor:

MMControl1.Command = "Open"
MMControl1.From = 0
MMControl1.FileName = stArchivoDeMusica
MMControl1.Command = "Play