查找进程数据的内存地址

我已经完成了查找字符的内存地址函数，像CE一样，查找一个字符内存地址速度 300ms 很快
用 一遍内存
Dim MBI As MEMORY_BASIC_INFORMATION
Do While (R = Len(MBI))
R = VirtualQueryEx(hProcess, pAddr, MBI, Len(MBI)) 
If (MBI.Protect And PAGE_READWRITE) And MBI.State = MEM_COMMIT  And MBI.lType = &H20000 Then
Awc = ReadProcessMemory(hProcess, ByVal MBI.BaseAddress, ByVal VarPtr(DStr(0)), MBI.RegionSize, 0&) '读内存到byte数组
................
 
再比较
StrPosition = InStr(PKi, DStr, StrSearch)  
得到地址
BAddr = MBI.BaseAddress + (StrPosition - 1) * 2
速度和ce一样快
可是查找数据内存地址不知道怎样算法！请高手指导