The following code is not fancy, but it does work.

Private Sub Command1_Click()

Dim sCmd As String

sCmd = "mplayer.exe /Play c:\your.mp3"

Shell sCmd, vbMinimizedNoFocus

End Sub