Sonidos Wav en objeto Ole

[truskyvb]

Buenas a todos. Estoy haciendo una especie de reproductor pero me atasco en un objeto OLE. Os agradezco de antemano la ayuda.
El código es:

Private Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long


Private Sub Command1_Click()
Dim SoundFile As String, ReturnLength As Long
SoundFile = Dir("C:\WINNT\Media\" & "*.wav")

Aquí está el problema, ya que el wav no está en un directorio, está incrustado en un objeto Ole llamado OLE1, y no sé como hacer la llamada:
SoundFlie = ????????

Result = sndPlaySound(SoundFile, 1)

Gracias por vuestra atención y ayuda. Un saludo