程序运行中无故退出！！！

enocheasty

各位大侠，我最近写了一些程序，开始还没有这个问题，但现在出现了一个共性的特点，就是在执行中无故退出。我这里的无故是说我没有找出来是什么问题。但是这些会无故退出的程序也有个共同点，那就是都用了一个获取键盘按键值的API函数，而且退出的地方大概就是判断键盘按下前的一条语句。（主要是我要用 API判断ESC按下，好退出程序。）
因为整个退出过程太自然，没有报错，没有提示，没有*取消*两个字，就像程序到这里就完了一样，但是程序并没有完。而且我也看不出那里有什么错误。另外，并不是每次到那里都退出，而是偶然性的，有的是加载使用后的第一次，有的是重复使用中出现。不知道有没有那位也遇到过这种情况。
贴个程序片段
  Call ThisDrawing.Utility.GetSubEntity(SelEnt, PkPot, TrMtrix, CData, vbCrLf & "选择要关闭图层上的图元:")  ‘这里提示选择，选择完程序就退出了，但是我并没有按ESC键，而且并不是每次都这样。
  If GetAsyncKeyState(VK_ESCAPE) Then Exit Sub     ’就是这个API函数，有用它的程序都有这个问题，也都在这个地方出现这种情况。
  If Err.Number = -2147352567 Then
    ThisDrawing.Utility.Prompt vbCr & "未选择任何图元!"
    Err.Clear
  Else