VB.net汉字取摸的问题！

HeP028

1. Private Sub Button_SendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_SendData.Click
   
2.         Dim Count As Byte                           '字符数量，1个汉字作2位处理
   
3.         Dim Number As Byte                          '字符数量，一个汉字做1位处理
   
4.         Dim StartAddrss As String                   '起始地址，
   
5.         Dim sendASdata(63) As Byte                  'ASSIC字符数组
   
6.         Dim SendHZdata(127) As Byte                 '汉字数组
   
7. 
   
8.         FileOpen(1, "C:\Users\Mr.ZHang\Desktop\LED3232DipslaySystem\HZK32", OpenMode.Binary, OpenAccess.Read, OpenShare.LockRead)
   
9.         FileOpen(2, "C:\Users\Mr.ZHang\Desktop\LED3232DipslaySystem\ASC32", OpenMode.Binary, OpenAccess.Read, OpenShare.LockRead)
   
10.         Count = Lenx(TextBox_EditHZ.Text)           '获取字符数量，一个汉字拆为2个字符
    
11.         If Count < 1 Then                           '输入的字符为1则退出函数
    
12.             FileClose(1)                            '关闭已打开的文件1
    
13.             FileClose(2)                            '关闭已打开的文件2
    
14.             MsgBox("不能发送空内容，请输入节目内容！", vbExclamation, "警告 ") '提示警告信息
    
15.             Exit Sub                                '退出函数
    
16.         End If
    
17.         Number = 0                                  '把字数归0
    
18.         While Number < Len(TextBox_EditHZ.Text)     '判断字符是否传输完毕
    
19.             StartAddrss = Hex(Asc(Mid(TextBox_EditHZ.Text, 1 + Number, 1))) '获取字符在文件中的地址信息
    
20.             Dim I As Integer, J As Integer          '循环计数用变量Dat
    
21.             Dim BUFF(0) As Byte
    
22.             If (("&H" + StartAddrss) < 255) Then    '输入的为数字
    
23.                 StartAddrss = StartAddrss * 64      '取得字符的起始地址
    
24.                 For I = 0 To 63 Step 1
    
25.                     FileGet(2, BUFF, StartAddrss + 1 + I)
    
26.                     sendASdata(I) = BUFF(0)
    
27.                     MsgBox(Hex(BUFF(0)) & "+" & I)
    
28.                 Next
    
29. 
    
30.             Else                                    '输入的为汉字
    
31.                 Dim N As Integer
    
32.                 StartAddrss = 128 * ("&H" + Mid(StartAddrss, 5, 2) - 161) * 94 + ("&h" + Mid(StartAddrss, 7, 2) - 161) '取汉字的起始字节地址
    
33.                 '   MsgBox(StartAddrss)
    
34.                 BUFF(0) = 0
    
35.                 N = 0
    
36.                 For I = 0 To 3                      '分4次做
    
37.                     For J = 0 To 127 Step 4
    
38.                         FileGet(1, BUFF, StartAddrss + 1 + I + J)
    
39.                         SendHZdata(N) = BUFF(0)
    
40.                         MsgBox(SendHZdata(I) & "+" & I + J)
    
41.                         N = N + 1
    
42.                     Next
    
43. 
    
44. 
    
45.                 Next
    
46.             End If
    
47.             Number = Number + 1                     '传送下个汉字
    
48.         End While                                   '完毕则退出循环
    
49.         FileClose(1)     '关闭文件1               
    
50.         FileClose(2)     '关闭文件2
    
51.     End Sub

复制代码

取模感觉不对，老是提示些许错误，请大侠指教一下，因为不懂，一遇到问题就是百度一下，一点一点的写到了这里，但总发现里面有些语法错误，只说汉字部分，就是ELSE的部分 。另外fileget文件的内容这么获取对吗？