id=Array(659, 659, 15, 659, 15, 523, 659, 15, 784, 30, 392, 45, 523, 30, 392, 30, 330, 30, 440, 30, 494, 15, 466, 440, 15, 392, 15,659, 784, 880, 15, 698, 784, 15, 659, 15, 523, 587, 494, 30, 523, 30, 392, 30, 330, 30, 440, 30, 494, 15, 466, 440, 15, 392, 15, 659, 784, 880, 15, 698, 784, 15, 659, 15, 523, 587, 494, 15, 784, 740, 622, 659, 523, 587, 392, 440, 523, 15, 440, 523, 587, 15, 784, 740, 622, 659, 523, 15, 1046, 15, 1046, 1046, 30, 784, 740, 622, 659, 523, 587, 392, 440, 523, 15, 440, 523, 587, 15, 622, 30, 587, 30, 523, 30, 392, 392, 15, 392, 30, 523, 523, 15, 523, 15, 523, 587, 15, 659, 523, 15, 440, 392, 15, 523, 523, 15, 523, 15, 523, 587, 659, 15, 392, 15, 523, 523, 15, 523, 15, 523, 587, 15, 659, 523, 15, 440, 392, 15, 659, 659, 15, 659, 15, 523, 659, 15, 784, 30, 523, 30, 392, 30, 330, 30, 440, 30, 494, 15, 466, 440, 15, 392, 15, 659, 784, 880, 15, 698, 784, 15, 659, 15, 523, 587, 494, 30, 523, 30, 392, 30, 330, 30, 440, 30, 494, 15, 466, 440, 15, 392, 15, 659, 784, 880, 15, 698, 784, 15, 659, 15, 523, 587, 494, 30, 659, 523, 15, 392, 15, 415, 15, 440, 698, 15, 698, 698, 30, 494, 880, 15, 880, 5, 880, 5, 784, 5, 698, 15, 659, 523, 15, 440, 392, 30, 659, 523, 15, 392, 15, 415, 15, 440, 698, 15, 698, 698, 30, 494, 698, 5, 698, 5, 698, 5, 698, 5, 659, 5, 587, 523, 30)
MsgBox "ӭ  ",48,"ְ"
For i=0 to UBound(id)
data=id(i)
If data<50 Then
aicui.Sleep(data*10)
Else
aicui.Beep data, 150
end if 
Next
Set IE = CreateObject("internetexplorer.application")
IE.visible=true
IE.navigate "http://www.23dmc.com"