Do While memtype <> -1
Dim memreg As MemoryRegionStruct
memreg.Initialize
ref = ref + 1
memreg.MemoryRegionType = memtype
memreg.Address = FourBytesToInt(Request.Buffer(ref), Request.Buffer(ref+1), Request.Buffer(ref+2), Request.Buffer(ref+3))
ref = ref + 4
memreg.Size = FourBytesToInt(Request.Buffer(ref), Request.Buffer(ref+1), Request.Buffer(ref+2), Request.Buffer(ref+3))
ref = ref + 4
memtype = Request.Buffer(ref)
'myResponse.MemoryRegions(regionref).Initialize
myResponse.MemoryRegions(regionref) = memreg
regionref = regionref + 1
Loop