Altro esempio (Variante che utilizza 2 command_button)
codice:
'In un MODULO

Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Public Const SND_ASYNC = &H1
    Public Const SND_SYNC = &H0
    Public Const SND_LOOP = &H8



'In un FORM

Option Explicit
    Dim S As Long

Private Sub Command1_Click()
    S = sndPlaySound("C:\Documenti\uno.wav", SND_ASYNC)
End Sub
 
Private Sub Command2_Click()
    S = sndPlaySound("C:\Documenti\due.wav", SND_ASYNC)
End Sub
P.S. con un textbox sarebbe così:
codice:
'Codice del FORM

Option Explicit
    Dim S As Long

Private Sub Text_Change()
        
    If Text <> "" Then
        
        If Text = 1 Then
            S = sndPlaySound("C:\Documenti\uno.wav", SND_ASYNC)
        ElseIf Text = 2 Then
            S = sndPlaySound("C:\Documenti\due.wav", SND_ASYNC)
        Else
            ' ALTRO FILE .WAV
        End If
        
    End If

End Sub