请大神帮我看一下

Do
 DoEvents
 buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, "*")

应该是卡在这里了。
这个循环里，应该加一个超时退出循环的处理过程。
Dim t1 As sing, t2 As sing
t1 = Timer               '进入循环前的秒数
Do
    t2 = Timer          '当前秒数
    If t1 > t2 Then t1 = t1 - 86400         '如果T2小于T1，说明过天了，修正T1，修正后T1为负数，而T2这时为个位数
    DoEvents
    buffer$ = buffer$ & MSComm1.Input
    If t2 - t1 > 3 Then Exit Do             '3秒超时，这个时间自己定
Loop Until InStr(buffer$, "*")