Public Type TP1
  Mem1 As Integer
  Mem2 As Integer
  Mem3 As Integer
  mem4 As String *  5 
End Type

Public Type TP1
  Mem1 As Integer
  Mem2 As Integer
  Mem3 As Integer
  mem4 As String
End Type

n = Len(PB_Frm2Nstr)

n = Len(PB_Frm2Nstr) +  4 

Option Explicit

Public Type TP1
    Mem1 As Integer
    Mem2 As Integer
    Mem3 As Integer
    mem4 As String *  3 
End Type

Public Type TP2
    El1 As Boolean
    El2 As Boolean
End Type

Public Type Nastroyka
  Korekciya As TP1
  Poshuk As TP2
End Type

Public PB_Frm2Nstr As Nastroyka
Public PB_Frm2NstrTmp As Nastroyka

Private Declare Function memcmp Lib "ntdll" Alias "RtlCompareMemory" (a As Any, b As Any, ByVal Length As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Public Sub Main()
    Dim m1() As Byte, m( 2 ) As Byte

    Debug.Print VarPtr(PB_Frm2Nstr)
    Debug.Print VarPtr(PB_Frm2NstrTmp)

    PB_Frm2Nstr.Korekciya.Mem2 =  2 
    PB_Frm2NstrTmp.Korekciya.Mem2 =  2 
    PB_Frm2Nstr.Korekciya.Mem3 =  7 
    PB_Frm2NstrTmp.Korekciya.Mem3 =  7 

    PB_Frm2Nstr.Korekciya.mem4 = "АБВ"
'    PB_Frm2NstrTmp.Korekciya.mem4 = "124"

    PB_Frm2Nstr.Poshuk.El2 = True
    PB_Frm2NstrTmp.Poshuk.El1 = True

    Debug.Print CompNastroyka(PB_Frm2Nstr, PB_Frm2NstrTmp)
End Sub

Public Function CompNastroyka(a As Nastroyka, b As Nastroyka) As Boolean
    Dim ma() As Byte, mb() As Byte, i As Long, ka As Long, kb As Long

    Debug.Print Len(a), LenB(a)
    Debug.Print Len(b), LenB(b)

    ka = Len(a) +  1  ' Добавляется кол-во строк в user-переменной
    kb = Len(b) +  1  ' Добавляется кол-во строк в user-переменной
    
    If ka = kb Then
        ReDim ma(ka -  1 )
        CopyMemory ma( 0 ), a, ka
        ReDim mb(kb -  1 )
        CopyMemory mb( 0 ), b, kb
        
        Debug.Print "----------"
        For i =  0  To UBound(ma)
            Debug.Print i +  1 , ma(i), mb(i)
        Next i
        Debug.Print "----------"
        
        Debug.Print memcmp(a, b, ka)
        CompNastroyka = (memcmp(a, b, ka) = ka)
    End If
End Function

Public Type Korekciya
  Left As Long
  LeftBl As Boolean
  Poshuk1 As String *  20 
  Poshuk1Bl As Boolean
  Poshuk2 As String *  20 
  Poshuk2Bl As Boolean
  Zamina1 As String *  20 
  Zamina2 As String *  20 
  PershaLiteraVelika As Boolean
  AvtomKoreguvatiVse As Boolean
End Type

Public Type DlaPoshukuArt 
  MojlivoArtCePapka As Boolean 
  MinatiMiscamiPrizvImya As Boolean 
  DeleteLishniZnaki As Boolean 
  KilkaArtistiv As Boolean 
  YakshoArtistaNeZnaydeno As Boolean 
  PoshukSkorocheno As Boolean
  PoshukPoPrizv As Boolean 
  NavchitiYakshoNeznaydeno As Boolean
  BilsheOdnogoVariantuVibir As Boolean 
End Type

Public Type Nastroyka
  Korekciya As Korekciya
  Poshuk As DlaPoshukuArt
End Type

Public PB_Frm2Nstr As Nastroyka