Как запихнуть запихнуть объект Me в Long? - VB

Public Declare Sub CopyMemory Lib 'kernel32' Alias 'RtlMoveMemory' (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
 
Public Function ObjectToPtr(ByVal oObject as Object) as Long
    ObjectToPtr = ObjPtr(oObject)
End Function
 
Public Function ObjectFromPtr(ByVal lPtr As Long) As Object
    Dim oTemp As Object
    If Not (lPtr = 0) Then
        CopyMemory oTemp, lPtr, 4
        Set ObjectFromPtr = oTemp
        CopyMemory oTemp, 0&, 4
    End If
End Property