Playing .Wav File

i have a sheet where there are 2 columns of tick boxes for good/bad input. ive been able to borrow some code that saves the sheet at a date name and based on the fact that if there is one bad tick in the bad column i would like a wav file to play showing this. likewise if there are no bad ticks then a good wav file is played instead. here is my lame code that calls to modules with the actual wav play instrucions in them, named playsound1 and playsound2 :-

Private Sub worksheet_calculate()
If [A22] > 10 Then
MsgBox "Vehicle Log Saved"
Call SaveAsTodaysDate
'End If
'if =sum[d6:d16] > 1 call soundplay1 else call soundplay2
'If Range("d6:d16").Value > 1 Then
'MsgBox "your gonna crash!"
'Call SoundPlay1 Else Call SoundPlay2
End If
End Sub