Application VisualBasic Script

Sub beep()
    DoCmd.Beep()
End Sub