magari dico na cazzata percè non l'ho provato ma se aggiungi ad sempio il componente win media player e scrivi
codice:
Private Sub MediaPlayer1_Click(Button As Integer, ShiftState As Integer, x As Single, y As Single)
    MediaPlayer1.Open ("percorsofiledascoltare")
End Sub
dovrebbe funzicà ma non l'ho provato!