寻找帮助！！

      我是一个学图书馆学的学生，老师现在要我们做一个管理系统，因此我希望自己的系统能够对MARC进行处理。但是，我写的程序却得到想要的结果，所以希望能够得到大家的帮助！
我的程序代码如下：

private Sub Form_Load()
Dim aa As String 'marc记录
Dim slen As Integer '数据长度
Dim adress As Integer '数据地址
Dim sum As Integer '字段数
Dim tag As String '字段标识
Dim middle As String '目次区数据
Dim data As String '数据区数据
Dim x As Integer '
Dim jsq As Integer '计数器
Dim tlen As Integer ' 字段长度
Dim tadress As Integer '字段起始地址
Dim b As String '字段标识


aa = "00366nam0 2200157 45 010002800000092000500028100003800033102000700071106000500078200005100083210002700134215000600161300000700167801002900174960000500203 a7-80109-746-7dCNY25.00 b a20040521d2004 y0chiy0110 ea aCN a1 a黄金法则书系——管理的100条黄金法则f文光 编著 c中央编译出版社d200404 d a　 aCNbMarcStudioc20040521 t"
slen = Val(Mid(aa, 1, 5))
adress = Val(Mid(aa, 13, 5))
sum = (adress - 26) / 12
middle = Mid(aa, 25, adress - 24 - 1)
data = Mid(aa, adress, slen - adress + 1)


b = "200" '要求取得题名责任项并在text1.text中显示
x = 1
jsq = 1
tag = ""
While jsq <= sum
tag = Mid(middle, x, 3) ' 字段标识符
tlen = Val(Mid(middle, x + 3, 4)) ' 字段长度
tadress = Val(Mid(middle, x + 7, 5)) '字段起始地址
If tag = b Then
Text1.Text = Mid(data, tadress + 1, tlen)
End If
jsq = jsq + 1
x = x + 12
Wend
End Sub

取得200字段的结果竟然是：1 a黄金法则书系——管理的100条黄金法则f文光 编著 c中央编译出版社d200404
希望能够得到有心人的帮助！谢谢！！！