'Класс CDump
Option Explicit

Private Declare Function lstrcpynSB Lib "kernel32" Alias "lstrcpynA" ( _
   ByVal lpString1 As String, lpString2 As Byte, _
   ByVal iMaxLength As Long) As Long
Private Declare Function lstrlenB Lib "kernel32" Alias "lstrlenA" ( _
   lpString As Byte) As Long

Private Type TInteger
   Data0 As Long
End Type

Private Type TShort
   Data0 As Integer
End Type

Private Type T4Bytes
   Data0 As Byte
   Data1 As Byte
   Data2 As Byte
   Data3 As Byte
End Type

Private Type T2Bytes
   Data0 As Byte
   Data1 As Byte
End Type

Private m_bDump() As Byte
Private m_nDumpSize As Long
Private m_nDumpLen As Long
Private m_nDumpPos As Long

Public Property Get Pos() As Long
 Pos = m_nDumpPos
End Property

Public Function ReadByte() As Byte
 ReadByte = m_bDump(m_nDumpPos)
 m_nDumpPos = m_nDumpPos +  1 
End Function

Public Function ReadShort() As Integer
 Dim t1 As T2Bytes, t2 As TShort
 t1.Data0 = m_bDump(m_nDumpPos +  0 )
 t1.Data1 = m_bDump(m_nDumpPos +  1 )
 LSet t2 = t1
 ReadShort = t2.Data0
 m_nDumpPos = m_nDumpPos +  2 
End Function

Public Function ReadInteger() As Long
 Dim t1 As T4Bytes, t2 As TInteger
 t1.Data0 = m_bDump(m_nDumpPos +  0 )
 t1.Data1 = m_bDump(m_nDumpPos +  1 )
 t1.Data2 = m_bDump(m_nDumpPos +  2 )
 t1.Data3 = m_bDump(m_nDumpPos +  3 )
 LSet t2 = t1
 ReadInteger = t2.Data0
 m_nDumpPos = m_nDumpPos +  4 
End Function

Public Function ReadCharArray() As String
 Dim nLen As Long
 nLen = ReadInteger 'длина массива
 ReadCharArray = String$(nLen, vbNullChar) 'подготовка буфера для тела строки
 lstrcpynSB ReadCharArray, m_bDump(m_nDumpPos), nLen +  1  'тело строки
 m_nDumpPos = m_nDumpPos + nLen  'перемещение текущего указателя
End Function

Public Function ReadString() As String
 Dim nLen As Long
 nLen = lstrlenB(m_bDump(m_nDumpPos))
 ReadString = String$(nLen, vbNullChar) 'подготовка буфера для тела строки
 lstrcpynSB ReadString, m_bDump(m_nDumpPos), nLen +  1  'тело строки
 m_nDumpPos = m_nDumpPos + nLen +  1  'перемещение текущего указателя
End Function

Private Sub AppendDump(ByVal bByte As Byte)
 If m_nDumpSize <= m_nDumpLen Then
    m_nDumpSize = m_nDumpSize +  256 
    ReDim Preserve m_bDump( 0  To m_nDumpSize -  1 ) As Byte
 End If
 m_bDump(m_nDumpLen) = bByte
 m_nDumpLen = m_nDumpLen +  1 
End Sub

Public Sub ReadDump()
 Dim sLine As String
 Dim nLineLen As Long
 Dim nSepPos As Long, nNextSepPos As Long
 Dim nFile As Integer
 
 nFile = FreeFile
 Open "C:\Temp\dump1.txt" For Input As #nFile
 Do
    Line Input #nFile, sLine
    'Debug.Print sLine
    nLineLen = Len(sLine)
    nSepPos =  0 
    Do
       nNextSepPos = InStr(nSepPos +  1 , sLine, "|")
       If nNextSepPos =  1  Then
          nSepPos = nNextSepPos
       ElseIf nNextSepPos >  0  Then
          AppendDump CByte(Mid$(sLine, nSepPos +  1 , nNextSepPos - nSepPos -  1 ))
          nSepPos = nNextSepPos
       Else
          If nSepPos < nLineLen Then AppendDump CByte(Mid$(sLine, nSepPos +  1 ))
          Exit Do
       End If
    Loop
 Loop Until EOF(nFile)
 Close #nFile
 
 ReDim Preserve m_bDump( 0  To m_nDumpLen -  1 ) As Byte
End Sub

Public Property Get Body() As Byte()
 Body = m_bDump
End Property

'Модуль формы с кнопкой
Option Explicit

Private Sub PrintRepeatingDumpBlock(ByVal Dump As CDump)
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadByte
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadString
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadCharArray
End Sub

Private Sub Command1_Click()
 Dim Dump As CDump
 Set Dump = New CDump

 Dump.ReadDump
 Debug.Print StrConv(Dump.Body, vbUnicode)
 
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadCharArray
 
 PrintRepeatingDumpBlock Dump
 PrintRepeatingDumpBlock Dump
 PrintRepeatingDumpBlock Dump
 PrintRepeatingDumpBlock Dump
 PrintRepeatingDumpBlock Dump

 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadInteger
 Debug.Print Dump.ReadString
 Debug.Print Dump.ReadString
 Debug.Print Dump.ReadInteger
 Debug.Print Chr(Dump.ReadByte);
 Debug.Print Chr(Dump.ReadByte);
 Debug.Print Chr(Dump.ReadByte);
 Debug.Print Chr(Dump.ReadByte)
End Sub

Private Declare Function DF_SetSnapshot Lib "mtesrl.dll" _
    Alias "MTESetSnapshot" ( _
    ByVal Idx As Long, _
    ByRef Snapshot As Byte, _
    ByVal Length As Long, _
    ByVal ResultMsg As String) As Long

Dim ErrorMsg as String
ErrorMsg = String$( 256 , vbNullChar)
ret = DF_SetSnapshot(Idx, ByteBuffer(смещение), _
                     UBound(ByteBuffer) - LBound(ByteBuffer) +  1 , ErrorMsg)

ret = DF_SetSnapshot(Idx, ByteBuffer(LBound(ByteBuffer) + смещение), _
                     UBound(ByteBuffer) - LBound(ByteBuffer) +  1  - смещение, ErrorMsg)