vb中ReadProcessMemory读取内存数据问题

[img=http://hi.baidu.com/qq6897883/album/item/4d5ad402304e251fa6d1e7b1a786c9177e3e53ce.html#][/img]
ReadProcessMemory jubing, ByVal &H48DA00, ByVal VarPtr(a(x, y)), 625, 0&
Text1.Text = ""
s = ""
i = 0
For y = 1 To 8
For x = 1 To 25
s = s + Str(a(x, y))
Text1.Text = Trim(s)
Next x
Next y

程序就这么多     前面的都是定义其它函数和变量        获得的数据没有完全显示出来     不明白是什么问题     要怎么排序才可以完全获得地址里的数据在TEXT控件里显示出来      请教各位大大     谢谢    新手
图片左边是内存里的数据     右边的是在TEXT控件里的数据，不知怎么TEXT中不显示内存中第一行的数据，还有其他数据没有完整显示出来 [img=http://hi.csdn.net/space-9272736-do-album-picid-996746.html][/img] http://hi.csdn.net/space-9272736-do-album-picid-996746.html
不知怎么上传图片

补充：VB ,  API