Private Declare Function VarPtrVaria Lib "msvbvm60" Alias "VarPtr" (Var As Any) As Long

Public s1 As String
Public s2 As String, s3 As String
Public s4 As String
........
Debug.Print VarPtrVaria(s1), VarPtrVaria(s2), VarPtrVaria(s3), VarPtrVaria(s4)

Private Declare Function VarPtrVaria Lib "msvbvm60" Alias "VarPtr" (Var As Any) As Long

Private Sub Print_Static_VariablesVarPtr_TESTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT()

Print_Static_Variables_VarPtr
Print_Static_Variables_VarPtr
Print_Static_Variables_VarPtr
Stop
End Sub

Public Sub Print_Static_Variables_VarPtr()

Static i As Integer, l As Long, x As Double, s As String
Debug.Print VarPtrVaria(i), VarPtrVaria(l), VarPtrVaria(x), VarPtrVaria(s)

End Sub

 349057428     349057432     349057436     1373276 
 349057428     349057432     349057436     1373276 
 349057428     349057432     349057436     1373276 

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
                  (ByVal lpDest As Any, ByVal lpSource As Any, ByVal cbCopy As Long)
Sub Main()
    Dim LocalVar As Long
    
    Call Ne_nado_umnichati(VarPtr(LocalVar))

    MsgBox "LocalVar = " & LocalVar


End Sub

Sub Ne_nado_umnichati(ptr As Long)

    Dim xxxx As Long
    Let xxxx = 12345
    
    CopyMemory ptr, VarPtr(xxxx), 4
End Sub

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
                  (ByVal lpDest As Any, ByVal lpSource As Any, ByVal cbCopy As Long)
Sub Main()
    Dim LocalVar As Long
    
    Dim mistika As Long
    Let mistika = 2 * VarPtr(LocalVar) + 54321
    
    Call Ne_nado_umnichati(mistika)


    MsgBox "LocalVar = " & LocalVar


End Sub

Sub Ne_nado_umnichati(ptr As Long)

    Dim xxxx As Long
    Let xxxx = 12345
    
    Dim mistika As Long
    Let mistika = (ptr - 54321) / 2
    
    CopyMemory mistika, VarPtr(xxxx), 4
End Sub