For tmpi = 0 To 5
            txtRecieve.Text = Trim(txtRecieve.Text) & " " & IIf(Len(Hex$(getBytes(tmpi))) > 1, Hex$(getBytes(tmpi)), "0" & Hex$(getBytes(tmpi)))
            
          Next tmpi
          Text1.Text = CInt((getBytes(0) * 256 + getBytes(1)) / 4096 * 3300)
          Text2.Text = CInt((getBytes(2) * 256 + getBytes(3)) / 4096 * 3300)
          Text3.Text = CInt((getBytes(4) * 256 + getBytes(5)) / 4096 * 3300)
      Case comEvSend   ' 传输缓冲区有 Sthreshold 个字符  '
      Case comEvEOF   ' 输入数据流中发现 EOF 字符
    End Select

End Sub

getbytes(tmpi)提示下标越界！！不知道问题出在哪里

getbytes(tmpi)

报错时，查看视图->本地窗口，然后找到 getbytes 这个变量，看看它的数据总个数是多少，每个值是多少，你还可以查看 tmpi 这个变量的值。

如果变量是在当前窗口定义的，那么直接可以看到。
如果是在 窗体定义的全窗体可见，那在 Me 下面可以找到。

哪一个地方报错？

数据类型不对