enum MyType2
a1= 0 
a2= 1 
a3= 2 
end enum

Enum TEnumKind
    ekCheck =  0 
    ekGroup =  1 
    ekCombo =  2 
End Enum

Type TEnumType
    Name As String
    Descr As String
    Size As Integer
    Type As TEnumKind
    Count_Const As Integer
    Const_Arr(Count_Const) As String
End Type

Type TEmunTypes
    Count_Types As Integer
    Arr_Type(Count_Types) As TEnumType
End Type
'============================================================================

'====================================TTables=================================
Enum TTableFlags
    tfUpdateable =  1 
    tfClearOnUpdate =  2 
End Enum

Enum TFieldFlags
    ffKey =  1 
    ffSecCode =  2 
End Enum

Enum TFieldType
    ftChar =  0 
    ftInteger =  1 
    ftFixed =  2 
    ftFloat =  3 
    ftDate =  4 
    ftTime =  5 
End Enum

Type TField
    Name As String
    Descr As String
    Size As Integer
    Type As TFieldType
    Attributes As TFieldFlags
    EnumerType As String
    Def_Val As String
End Type

Type TFields
    Count_Field As Integer
    Arr_Fields(Count_Field) As TField
End Type

Type TTable
    Name As String
    Descr As String
    Attributes As TTabbleFlags
    In_Fiels As TFields
    Out_Field As TFields
End Type

Type TTables
    Count_Table As Integer
    Arr_Table As TTable
End Type
'============================================================================
'===============================TTransactions================================
Type TTransaction
    Name As String
    Descr As String
    In_Fields As TFields
End Type

Type TTransactions
    Count_Tran As Integer
    Arr_Tran(Count_Tran) As TTransaction
End Type
'============================================================================
Type ArrInterface
    InterfaceName As String
    InterfaceDescr As String
    InterfaceTypes As TEnumTypes
    Interfacetables As TTables
    InterfaceTrans As TTransactions
End Type

Type TMTEMsg
    DataLen As Long
    Data As ArrInterface
End Type

Arr_Tran(Count_Tran) As TTransaction

Private Declare Function DF_Structure& Lib "mtesrl.dll" _
    Alias "MTEStructure" ( _
    ByVal Idx As Long, _
    ByRef lpMsg As Long)
'.....
Type TMTEMsg
    DataLen As Long
    Data() As Byte
End Type
'...

Dim Msg As TMTEMsg
Dim nErr as Long, lpMsg as long
nErr = DF_Structure(MainIdx, lpMsg)
If nErr < MTE_OK Then
    PutErrorTextByIdx Idx
Else
    CopyMemory Msg.DataLen, ByVal lpMsg,  4 
    ReDim Msg.Data( 0  To Msg.DataLen -  1 ) As Byte
    CopyMemory Msg.Data( 0 ), ByVal lpMsg +  4 , Msg.DataLen
End If

nErr = DF_Structure(MainIdx, lpMsg)
If nErr < MTE_OK Then
    PutErrorTextByIdx Idx
Else
    CopyMemory Msg.DataLen, ByVal lpMsg,  4 
    ReDim Msg.Data( 0  To Msg.DataLen -  1 ) As Byte
    CopyMemory Msg.Data( 0 ), ByVal lpMsg +  4 , Msg.DataLen
End If
Dim sstr$
For i% =  0  To UBound(Msg.Data)
    If Msg.Data(i) =  0  Then
        Msg.Data(i) =  42 
    End If
    sstr = sstr$ & Chr(Msg.Data(i%))
Next i%
Open "C:\TmpMMVB.txt" For Append As # 1 
Print # 1 , sstr
Close # 1 

nErr = DF_Refresh(Idx, lpMsg)
If nErr < MTE_OK Then
    result =  1 
    PutErrorTextByIdx nErr
    Exit Sub
Else
    CopyMemory Msg.DataLen, ByVal lpMsg,  4 
    ReDim Msg.Data( 0  To Msg.DataLen -  1 ) As Byte
    CopyMemory Msg.Data( 0 ), ByVal lpMsg +  4 , Msg.DataLen

    sstr = ""
    'первые 4 байта - Ref
    For i =  0  To  3 
        output_ref = output_ref + CInt(Msg.Data(i))
    Next i
    sstr = sstr + "Ref=" + CStr(output_ref)
    'вторые 4 байта - Количество строк
    For i =  4  To  7 
        output_rows = output_rows + CInt(Msg.Data(i))
    Next i
    sstr = sstr + "NumRows=" + CStr(output_rows)
    
    For i =  8  To UBound(Msg.Data)
        'первый байт - кол-во полей
        output_numfields = CInt(Msg.Data(i))
        'дальше 4 байта - длина данных
        output_datalen =  0 
        For j = i +  1  To i +  4 
            output_datalen = output_datalen + CInt(Msg.Data(j%))
        Next j
        'массив номеров полей равный количеству полей
        output_number_fields = ""
        If output_numfields <>  0  Then
            For k = j +  1  To j + output_numfields -  1 
                output_number_fields = output_number_fields + CStr(Msg.Data(k)) + ","
            Next k
        Else: k = j
        End If
        'массив данных по одной строке, равный длинне строки
        tstr = ""
        For l = k +  1  To k + output_datalen -  1 
            tstr = tstr + Chr(Msg.Data(l))
        Next l
        sstr = sstr + "@@@" + "NumFields=" + CStr(output_numfields) + ", DataLen=" + CStr(output_datalen)
        sstr = sstr + "*@@" + output_number_fields + "*@@" + tstr
        i = l -  1 
    Next i%
    Open SaveFile For Append As # 1 
    Print # 1 , sstr
    Close # 1 
End If

CopyMemory Msg.Data( 0 ), ByVal lpMsg +  4 , Msg.DataLen

Type TMTEMsg
    DataLen As Long
    Data() As Byte
 End Type

'...
Dim Msg as TMTEMsg

CopyMemory Msg.DataLen, ByVal lpMsg,  2 
    ReDim Msg.Data( 0  To Msg.DataLen -  1 ) As Byte
    CopyMemory Msg.Data( 0 ), ByVal lpMsg +  2 , Msg.DataLen

    'первые 4 байта - Ref
    For i =  0  To  3 
        output_ref = output_ref + CInt(Msg.Data(i))
    Next i

Type TMTEMsg
    Data as Byte
    DataLen as Long
End Type

'...

Dim Msg as TMTEMsg

'...

Msg.Data( 0 )= 1 
Msg.Data( 1 )= 0 
Msg.Data( 2 )= 0 
Msg.Data( 3 )= 0 

    'первые 4 байта - Ref
    For i =  0  To  3 
        output_ref = output_ref + CInt(Msg.Data(i))* 255 ^i
    Next i

 Dim bArr( 0  To  5 ) As Byte
 bArr( 0 ) = Asc("П")
 bArr( 1 ) = Asc("р")
 bArr( 2 ) = Asc("и")
 bArr( 3 ) = Asc("м")
 bArr( 4 ) = Asc("е")
 bArr( 5 ) = Asc("р")

 Dim sStr As String
 sStr = StrConv(bArr, vbUnicode)