菜鸟的问题：请大家帮忙！！！

下面的程序是使计算机“毕毕”发生，但在我的机器上运行就死机。
请各位运行一下，告知我运行时的情况。
Dim check, counter
Private Sub Form_Load()
check = True
counter = 0
Do
Do While counter < 200000
    counter = counter + 1
    Beep
If counter = 110000 Then
   check = False
   Exit Do
End If
Loop
  Loop Until check = False
End Sub