未处理的“System.InvalidCastException”类型的异常出现在 microsoft.visualbasic.dll 中。

其他信息: 从字符串“&hB后”到类型“Integer”的强制转换无效。

程序代码
Dim tbyte, bbyte As Byte
Dim i1, n1 As Integer
Dim tc As String
Dim c6 As String

bbyte = 0
n1 = sendstr.Length
For i1 = 1 To n1 Step 2
tc = sendstr.Substring(i1 - 1, 2)
这行出错了 　　　tbyte = CInt("&h" + tc)
bbyte = bbyte Xor tbyte

Next
这个错误应该怎么改呀？急！！！