Need to loop .wav file three times

Need to loop .wav file three times. (See "Sound") (Not tagged in origional code.)

Private Sub Address_Exit(Cancel As Integer)
Address.BackColor = 16777215
On Error Resume Next

'If there is no matching record in communications do nothing.
If IsNull(DLookup("[address]", "communications", "[address]='" & replacequote(Me![Address]) & "'")) Then
Exit Sub
End If


'Make button visable and activate alert beep.
Command1796.Visible = True


PlaySound "H:\Generald\media\BEEP_FM.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC



End Sub