Source code

Option Explicit

Private Type MYTABLE
    Name As String
    Bytes() As Byte 'pointer to dynamic array
    Value As Long
End Type

Private Hallodri() As MYTABLE 'dynamic array
Private s As String

Private Sub sh()
    Dim lb As Integer
    Dim t As String
    
    lb = LBound(Hallodri)
    t = "Hallodri(" & lb & " .. " & UBound(Hallodri) & ")." _
      & "Bytes(" & LBound(Hallodri(lb).Bytes) & " .. " & UBound(Hallodri(lb).Bytes) & ")"
      
    s = s & vbCrLf & t
    
    Debug.Print t
End Sub

Private Sub Command1_Click()
    Dim i As Integer
    Dim ub As Integer
    
    Debug.Print ""
    s = ""
    ReDim Hallodri(0 To 1)
    For i = LBound(Hallodri) To UBound(Hallodri)
        ' ReDim Hallodri(i).Bytes(3 To 4)
        
        With Hallodri(i)
            ReDim .Bytes(3 To 4)
        End With
    Next i
    sh
    
    ub = UBound(Hallodri) + 1
    ReDim Preserve Hallodri(ub) As MYTABLE
    ReDim Hallodri(ub).Bytes(3 To 4)
    
    For i = LBound(Hallodri) To UBound(Hallodri)
        ub = UBound(Hallodri(i).Bytes) + 1
        ' ReDim Preserve Hallodri(i).Bytes(3 To ub) As Byte
        
        With Hallodri(i)
            ReDim Preserve .Bytes(3 To ub) As Byte
        End With
    Next i
    sh
    
    ' ReDim Hallodri(LBound(Hallodri)).Bytes(3 To 3)
    With Hallodri(LBound(Hallodri))
        ReDim .Bytes(3 To 3)
    End With
    sh
    
    ub = UBound(Hallodri(0).Bytes) + 1
    ' ReDim Preserve Hallodri(0).Bytes(3 To ub) As Byte
    With Hallodri(0)
        ReDim Preserve .Bytes(3 To ub) As Byte
    End With
    sh
    
    MsgBox s, vbInformation, "Dynamic Arrays"
End Sub

Jabaco Source

Public Sub test(Optional var1 As String = "test1", Optional var2 As String = "test2")
   MsgBox var1 & var2 
End Sub

Public Sub Command1_Click()
   Call test   
   Call test("Replaced")
   'Call test(, "Replaced") <<< not possible in java bytecode
End Sub