VBAで音を鳴らす 方法

Sub ()
Beep
End Sub()

こうやって書きますと、Windows標準の音がなります。