Visual Basic - Acortar el nombre d una carpeta...

Buenas, mi problema es el siguient:

Estoy haciendo un programa q le da la opción d elegir al usuario, un archivo de sonido Wav o Midi q tenga en el PC, para este yo reproducirlo mediante el siguiente código:

Private Declare Function mciExecute Lib "winmm.dll" (ByVal _
lpstrCommand As String) As Long

Private Sub Reproducir()
Dim iResult As Integer
iResult = mciExecute("Play " + pathSonido$)
End Sub

Todo va bien excepto cuando la ruta del archivo contiene un directorio con espacios en blanco. Por ejemplo: "C:\Musica y Sonido\Sonido.wav"

En este caso se produce un error y no se emite el sonido. Mi pregunta es como puedo acortar la ruta d sta forma "C:\Musica~1\Sonido.wav" para q así funcione o q solución se puede aportar a este problema??

Muxas gracias d antemano.

Prueba este otro API, parecido al tuyo. a mi me funciona con carpetas con o sin espacio:
Esta declaración lo pones en un módulo
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

y este otro codigo lo pone en donde desea hacer sonar el archivo
Call sndPlaySound(Ruta & "\archivo.wav", SND_ASYNC)

Suerte

Con tu API soluciono el problema pero entonces me aparece otro, mientras se reproduce el sonido el programa no sigue la ejecución, no pasa a la siguiente linea de código hasta que no acaba de reproducirse.

No obstante gracias, alguien + puede aportar una nueva solución?