Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
 
Function ToBinary(lnum As Long) As String
    Dim b(3) As Byte
 
    CopyMemory b(0), lnum, &H4
    ToBinary = StrConv(b, vbUnicode)
End Function
 
Function FromBinary(strmsg As String) As Long
    Dim b() As Byte
 
    b = StrConv(strmsg, vbFromUnicode)
    CopyMemory FromBinary, b(0), &H4
End Function
 
Private Sub Form_Load()
 
    Debug.Print FromBinary(ToBinary(96412234))
 
End Sub

Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
 
Private Sub Form_Load()
    Dim b(3) As Byte
    Dim lNum As Long
 
    lNum = 1562036412
    CopyMemory b(0), lNum, &H4
 
    Dim i As Long
 
    For i = 0 To 3: Debug.Print b(i);: Next
 
    lNum = 0
    CopyMemory lNum, b(0), &H4
 
    Debug.Print lNum
 
End Sub

Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
 
Private Sub Form_Load()
    Dim b(3) As Byte
    Dim lNum As Long
 
    lNum = 1562036412
    CopyMemory b(0), lNum, &H4
 
    Dim i As Long
 
    For i = 0 To 3: Debug.Print b(i);: Next
 
End Sub