Sub test()
      Dim x(1 To 1, 1 To 2, 1 To 3)
      Dim y(1 To 1, 1 To 2)
      Dim z(10)
        
      MsgBox getDimentionsOfArray(x)
      MsgBox getDimentionsOfArray(y)
      MsgBox getDimentionsOfArray(z)
End Sub

Function getDimentionsOfArray(ByRef arr As Variant) As Byte
      With CreateObject("ScriptControl")
          .Language = "JScript"
          .AddCode "function foo(arr) {return new VBArray(arr).dimensions();}"
          getDimentionsOfArray = .Run("foo", arr)
      End With
End Function

Sub io()
     ' создали объект
     Set x = NewObject("forum: { KukLP: 'Sergei', AlexST: 'Alexei', RAN: 'Andrey' }")
      
     ' изменили его свойство
     x.forum.KukLP = "Сергей"
End Sub

Function NewObject(ByRef description As String) As Object
     With CreateObject("ScriptControl")
         .Language = "jscript"
         .Addcode "function x(){return {" & description & "};}"
         Set NewObject = .Run("x")
     End With
End Function

Sub io()
     Dim x As Object
     ' создать объект - {}
     ' созздать объект со свойством prop - { prop: 1 }
      
     ' создать пустой объект со свойством forum, которое тоже явзяется объектом
     Set x = NewObject("forum: {}")
      
     ' добавить к объеку forum свойство-объект moderators
     Set x = NewObject("forum.moderators = { Hugo: '', Саня: '' }", x)
      
     ' добавить к объеку forum свойство-объект users
     Set x = NewObject("forum.users = { 1: '', 2: '' }", x)
      
     ' удалить модераторов : )
     Set x = NewObject("delete forum.moderators", x)
End Sub

Function NewObject(ByRef code As String, _
                    Optional ByRef this As Object) As Object
     With CreateObject("ScriptControl")
         .Language = "jscript"
         If this Is Nothing Then
             .AddCode "function x(){return {" & code & "};}"
         Else
             .AddObject "_", this, True
             .AddCode "function x(){" & code & ";return this;}"
         End If
         Set NewObject = .Run("x")
     End With
End Function