不可以的，但是出现错误的时候不是已经告诉你在多少行了吗？你把行号显示出来就可以了。
成都创新互联是专业的云溪网站建设公司，云溪接单;提供网站设计制作、成都网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行云溪网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
显示行号的方法：工具选项文本编辑器basic编辑器
这项下有个行号，你打钩就好了。
这样一来报错的时候，提示在多少行，你就到多少行去看。如果你没有用try的话，错误在哪里，ide会在错误的位置给你标示出来。
Sub aaa()
MsgBox("111")
application.exit
End Sub
定义一个公有布尔值变量 flag，初始值 False。
循环里最开始 If 判断一下 flag，如果为 True 就 Exit Do 跳出循环，否则继续循环。
然后在别的函数控制 flag 的值就可以了。
P.S. 你这段代码是死循环，直到程序占用内存越来越大溢出进而程序崩溃为止……
发送接收的过程都放在Try...Catch里面，一旦连接中断，就会出错，此时可以关闭现有连接，重新连服务端
