Private Enum VARENUM
   VT_EMPTY = 0
   VT_NULL = 1
   VT_I2 = 2
   VT_I4 = 3
   VT_R4 = 4
   VT_R8 = 5
   VT_CY = 6
   VT_DATE = 7
   VT_BSTR = 8
   VT_DISPATCH = 9
   VT_ERROR = 10
   VT_BOOL = 11
   VT_VARIANT = 12
   VT_UNKNOWN = 13
   VT_DECIMAL = 14
   VT_I1 = 16
   VT_UI1 = 17
   VT_UI2 = 18
   VT_UI4 = 19
   VT_INT = 22
   VT_UINT = 23
   VT_VOID = 24
   VT_ARRAY = &H2000
   VT_BYREF = &H4000
End Enum

Private Type MyVariantName3
   Val0 As Integer
   Val1 As Integer
   Val2 As Integer
   Val3 As Integer
End Type
Private Type MyVariantName4
   Val0 As Long
   Val1 As Long
End Type
Private Type MyVariant
   vt As Integer 'комбинация значений VARENUM
   wReserved1 As Integer
   wReserved2 As Integer
   wReserved3 As Integer
   Value As MyVariantName3
End Type

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
   pvDest As Any, pvSource As Any, ByVal cBytes As Long)

Sub t1()
 Dim b As Boolean
 
 b = True
 Debug.Print "Адрес переменной b: " & VarPtr(b)
 Debug.Print "До вызова процедуры GetP"
 Debug.Print "Шестн. значение переменной b: " & Hex$(b)

 GetP b
 
 Debug.Print "После вызова процедуры GetP"
 Debug.Print "Шестн. значение переменной b: " & Hex$(b)
 
 'далее по вкусу
End Sub

Sub GetP(ByRef pOut As Variant)
  Dim mv As MyVariant
  Dim mvn4 As MyVariantName4
  Dim boolVal As Boolean
  
  Debug.Print "Процедура GetP"
  
  CopyMemory mv, pOut, Len(mv)
  If mv.vt = (VT_BOOL Or VT_BYREF) Then
     Debug.Print "Переменная pOut типа Variant имеет подтип VT_BOOL | VT_BYREF"
     LSet mvn4 = mv.Value
     Debug.Print "Адрес переменной типа VT_BOOL, на которую ссылается pOut: " & mvn4.Val0
     CopyMemory boolVal, ByVal mvn4.Val0, LenB(boolVal)
     Debug.Print "До присвоения значения переменной pOut типа Variant"
     Debug.Print "Шестн. значение переменной типа VT_BOOL, на которую ссылается pOut: " & Hex$(boolVal)
  End If
  
  pOut = "3003"
     
  If mv.vt = (VT_BOOL Or VT_BYREF) Then
     CopyMemory boolVal, ByVal mvn4.Val0, LenB(boolVal)
     Debug.Print "После присвоения значения переменной pOut типа Variant"
     Debug.Print "Шестн. значение переменной типа VT_BOOL, на которую ссылается pOut: " & Hex$(boolVal)
  End If
End Sub

t1
Адрес переменной b: 1242890
До вызова процедуры GetP
Шестн. значение переменной b: FFFF
Процедура GetP
Переменная pOut типа Variant имеет подтип VT_BOOL | VT_BYREF
Адрес переменной типа VT_BOOL, на которую ссылается pOut: 1242890
До присвоения значения переменной pOut типа Variant
Шестн. значение переменной типа VT_BOOL, на которую ссылается pOut: FFFF
После присвоения значения переменной pOut типа Variant
Шестн. значение переменной типа VT_BOOL, на которую ссылается pOut: 3003
После вызова процедуры GetP
Шестн. значение переменной b: 3003

t1
Адрес переменной b: 1242890
До вызова процедуры GetP
Шестн. значение переменной b: FFFF
Процедура GetP
Переменная pOut типа Variant имеет подтип VT_BOOL | VT_BYREF
Адрес переменной типа VT_BOOL, на которую ссылается pOut: 1242890
До присвоения значения переменной pOut типа Variant
Шестн. значение переменной типа VT_BOOL, на которую ссылается pOut: FFFF
После присвоения значения переменной pOut типа Variant
Шестн. значение переменной типа VT_BOOL, на которую ссылается pOut: BBB
После вызова процедуры GetP
Шестн. значение переменной b: BBB