配列の初期化チェック

Module2.bas

Option Explicit

Private Declare PtrSafe _
Function VarPtr Lib "vbe7.dll" ( _
    ByRef arr() As Any _
) As LongPtr

Private Declare PtrSafe _
Sub RtlMoveMemory Lib "Kernel32.dll" ( _
    ByRef Destination As Any, _
    ByRef Source As Any, _
    ByVal Length As LongPtr _
)

Sub hoge()

#If Win64 Then
    Dim arr() As LongPtr
    Dim pp As LongPtr
    Dim p As LongPtr
    
    pp = VarPtr(arr)
    RtlMoveMemory p, ByVal pp, 8
    If p Then
        Debug.Print "初期化済み"
    Else
        Debug.Print "未初期化"
    End If
#End If


End Sub