{{"Василий","Инженер",55000,35},{"Михаил","Юрист",65000,42},{"Светлана","офис-менеджер",35000,27}}

Array(Array("Василий","Инженер",55000,35),Array("Михаил","Юрист",65000,42),Array("Светлана","Офис-менеджер",35000,27))

Dim d As New MSScriptControl.ScriptControl
d.Language = "VBScript"...

 #include <iostream>
 
 #include <stdlib.h>
 
  class SimpleCat
  {
  public:код
   SimpleCat() {itsAge = 2;}
   ~SimpleCat() {}
  int GetAge() const {return itsAge;}
  void SetAge(int age) {itsAge = age;}
private:
  int itsAge;
 };
 
int main()
 {
 using namespace std;
  SimpleCat*Frisky=newSimpleCat;
  cout << "Frisky is " << Frisky->GetAge()
           << " years old" << endl;
  Frisky->SetAge(5);
  cout << "Frisky is " << Frisky->GetAge()
               << " years old" << endl;
  delete Frisky;
   return 0; 
}

'модуль класса clsValueKeeper
 
Private v, w 'As Variant
 
Public Property Let Value(x As Variant)
  v = x * 2
  w = x * 5
End Property
 
Public Property Get Value()
  Value = v / 2
End Property

'===============================
'обычный модуль

#If VBA7 Then
Private Declare PtrSafe Sub RtlMoveMemory Lib "kernel32" (Dst As Any, Src As Any, ByVal bytes As Long)
#Else
Private Declare Sub RtlMoveMemory Lib "kernel32" (Dst As Any, Src As Any, ByVal bytes As Long)
#End If

Sub test()

 Dim myObj As New clsValueKeeper ' инициирован (вызван) класс, в динамической памяти создан его экземпляр (myObj)
 Dim v As Long           ' сюда мы будем считывать из памяти значение внутренней переменной v
 Dim w As Long           ' сюда мы будем считывать из памяти значение внутренней переменной w
 Const offset_v = 104    ' смещение первой переменной класса в порядке их описания в модуле класса, байт
 Const offset_w = 128    ' смещение второй переменной класса в порядке их описания в модуле класса, байт

' Поехали!

 myObj.Value = 555  ' внутренним переменным класса - v и w - уже присвоены значения 1100 и 2775 (44Ch и AD7h)
 MsgBox myObj.Value ' 555

 RtlMoveMemory v, ByVal ObjPtr(myObj) + offset_v, 4& ' считали в переменную v её значение из памяти (4 байта)
 RtlMoveMemory w, ByVal ObjPtr(myObj) + offset_w, 4& ' считали в переменную w её значение из памяти (4 байта)

 Debug.Print "v = " & v  ' v = 1110
 Debug.Print "w = " & w  ' w = 2775

 ' теперь искусственно поменяем значение переменной v

 RtlMoveMemory ByVal ObjPtr(myObj) + offset_v, &H888, 8& ' теперь содержимое памяти, относящееся к переменной v, равно 2184 (888h)
 MsgBox myObj.Value ' 1092

End Sub

StrPtr(CStr(Cells(1, 1)))

00 35 00 35 00 35

MsgBox ActiveSheet.Cells(1, 1).Value

#If VBA7 Then

Private Declare PtrSafe Sub RtlMoveMemory Lib "kernel32" (Dst As Any, Src As Any, ByVal bytes As Long)
#Else
Private Declare Sub RtlMoveMemory Lib "kernel32" (Dst As Any, Src As Any, ByVal bytes As Long)
#End If
'--------------------------
Sub test()
    Dim b() As Byte

    ReDim b(1 To 4096)
    RtlMoveMemory b(1), ByVal StrPtr(Cells(1, 1)), 4096
    MsgBox b
End Sub