Option Explicit
 
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Public Declare Function VirtualProtect Lib "kernel32" (lpAddress As Any, ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long
 
Public Const PAGE_EXECUTE_READWRITE As Long = &H40&
 
Public Function GetMem(ByVal lpAddr As Long, ByVal pData As Long, ByVal dlen As Long) As Boolean
Dim lngOldProtect   As Long
 
If 0 = VirtualProtect(ByVal lpAddr, dlen, PAGE_EXECUTE_READWRITE, lngOldProtect) Then
    Exit Function
End If
 
CopyMemory ByVal pData, ByVal lpAddr, dlen
VirtualProtect ByVal lpAddr, dlen, lngOldProtect, lngOldProtect
 
GetMem = True
End Function
 
Public Function PutMem(ByVal lpAddr As Long, ByVal pData As Long, ByVal dlen As Long) As Boolean
Dim lngOldProtect   As Long
 
If 0 = VirtualProtect(ByVal lpAddr, dlen, PAGE_EXECUTE_READWRITE, lngOldProtect) Then
    Exit Function
End If
 
CopyMemory ByVal lpAddr, ByVal pData, dlen
VirtualProtect ByVal lpAddr, dlen, lngOldProtect, lngOldProtect
 
PutMem = True
End Function
 

Option Explicit
 
'http://msdn.microsoft.com/en-us/library/aa263420(v=vs.60).aspx
 
'http://www.codeguru.com/vb/gen/vb_misc/algorithms/article.php/c7495/How-Visual-Basic-6-Stores-Data.htm
 
'http://msdn.microsoft.com/en-us/library/windows/desktop/ms221627(v=vs.85).aspx
'http://msdn.microsoft.com/en-us/library/windows/desktop/ms221069(v=vs.85).aspx
'http://www.roblocher.com/whitepapers/oletypes.aspx
 
Private Sub Form_Load()
Dim ESI(3 To 6) As Variant
Dim EDI(3 To 6) As Variant
 
Dim i As Byte
 
ESI(3) = "2NE1" '255 '32767 '2147483647
ESI(4) = "CL"
ESI(5) = "THE BADDEST FEMALE"
ESI(6) = "This is for all my bad girls around the world, Not bad meaning bad but bad meaning good u know, Let’s light it up and let it burn like we don’t care, Let em know how it feels damn good to be bad"
 
'For i = LBound(ESI) To UBound(ESI)
'    MsgBox i & ": " & (ESI(i) = EDI(i)) & vbCrLf & ESI(i) & " = " & EDI(i) & vbCrLf & "ESI: &H" & Hex(VarPtr(ESI(i))) & vbCrLf & "EDI: &H" & Hex(VarPtr(EDI(i)))
'Next i
'Stop
 
'Call PutMem(VarPtr(EDI(LBound(EDI))), VarPtr(ESI(LBound(ESI))), GetSizeArray(ESI))
Call PutMem(VarPtr(EDI(LBound(EDI))), VarPtr(ESI(LBound(ESI))), GetSizeArray(ESI)) '60 tmb
 
For i = LBound(ESI) To UBound(ESI)
    MsgBox i & ": " & (ESI(i) = EDI(i)) & vbCrLf & ESI(i) & " = " & EDI(i) & vbCrLf & "ESI: &H" & Hex(VarPtr(ESI(i))) & vbCrLf & "EDI: &H" & Hex(VarPtr(EDI(i)))
Next i
End
End Sub
 
Private Function GetSizeArray(ByRef vArray)
Dim BaseBytes As Byte
 
'MsgBox TypeName(vArray)
 
Select Case TypeName(vArray)
    Case "Byte()"
        BaseBytes = 1
    Case "Boolean()", "Integer()"
        BaseBytes = 2
    Case "Long()", "Single()"
        BaseBytes = 4
    Case "Double()", "Currency()", "Date()"
        BaseBytes = 8
    Case "Variant()"
        'The variant is 16 bytes large.
        'It has 2 bytes to describe the type of data it is storing, 6 reserved bytes, and 8 bytes to store the data (each block represents a byte).
        BaseBytes = 16
    Case "String()"
        BaseBytes = 4 'ReadMem del VarPtr está el Address al string con su len 4 bytes antes
End Select
 
GetSizeArray = BaseBytes * (UBound(vArray) - LBound(vArray) + 1)
End Function