For I = 0 To 100 Beep 0,,,0 Next でも同じことが出来ますね あんま意味ないけど