VBの標準機能ではありませんが、DirectXを使った方法でしたら、ご紹介できます。

'下はコードの一番初めに書くこと。 

Imports Microsoft.DirectX.AudioVideoPlayback



        'オーディオファイルを開く 

        Dim AudioR As New Audio("右スピーカーから流れる音楽のファイル名")

        Dim AudioL As New Audio("左スピーカーから流れる音楽のファイル名")

        '左右の振り分け 

        AudioR.Balance = 10000

        AudioL.Balance = -10000

        '再生 

        AudioR.Play()

        AudioL.Play()

Microsoft.DirectX.AudioVideoPlaybackを参照に追加しないと動きません。