Private Sub MSC_OnComm()
Select Case
       Case comEvReceive
        Do
         buf = MSC.Input
         T = T + 1
         If T > 10000 Then Exit Do
       Loop Until (Left(buf, 1) = "=" And Len(buf) = 9)                                    
                                ‘保证buf是一个以  “=“开始的 9位数据，用do…loop进行循环等待。

ReDim ary(Len(buf))                              
        For i = 1 To Len(buf)
        ary(i - 1) = Mid(buf, i, 1)
        Next                                       ‘将buf重新定义为数组型
     If ary(Len(buf) - 1) = "-" Then              ‘判断buf的最高位是否为“-“
        For i = 0 To Len(buf) - 1
        buf1 = buf1 + ary(i)
        Next
        txtReceive1.Text = buf1              ‘如果为“-”，将赋值给txtReceive1.Text
        buf1 = ""
     Else
        For i = 0 To Len(buf) - 1
        buf1 = buf1 + ary(i)
        Next
        txtReceive2.Text = buf1                   ‘否则将赋值给txtReceive2.Text
        buf1 = ""
    End If
     Case comEvSend
End Select
End Sub

为什么在运行时，有的时候正常，有的时候在If ary(Len(buf) - 1) = "-" Then  这一句会出现错误提示：下标越界，

真的不知哪儿错了，想请高手帮帮忙！

你这个 ary(?) 的数组是怎么定义的啊?
出错原因就在于Len(buf) - 1的值要不大于数组的上标,要不就是小于数组的下标!

比如,定义 ary(3),则该数组的下标为0,上标为3(事先声明下标为1时,则下标为1)

[[it] 本帖最后由 不说也罢 于 2008-9-17 20:40 编辑 [/it]]

不定义就用变量是不太好的习惯

还有，不是原创的技术类文章别加注“原创”。