se hai l'sdk di directX installato puoi utilizzarlo.

Imports Microsoft.DirectX.AudioVideoPlayback

Dim audio As New Audio(nomeFile.Text)
audio.Play()