nuevamente gracias, he hecho estas dos funciones muy basicas (y sin cntrol de errores, luego se lo hare dado que si los parametros que se le pasan, en especial a FromBinary son nulos o strings vacios daran error).
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
Dim i As Long
Dim strmsg As String
CopyMemory b(0), lnum, &H4
For i = 0 To 3
strmsg = strmsg & Chr$(b(i))
Next
ToBinary = strmsg
End Function
Function FromBinary(strmsg As String) As Long
Dim c() As Byte
Dim lnum As Long
Dim i As Long
For i = 1 To Len(strmsg)
ReDim Preserve c(i - 1)
c(i - 1) = Asc(Mid$(strmsg, i, 1))
Next
CopyMemory lnum, c(0), Val("&H" & UBound(c) + 1)
FromBinary = lnum
End Function
Private Sub Form_Load()
MsgBox ToBinary(96412234)
MsgBox FromBinary(ToBinary(96412234))
End Sub
edit: quisiera escuchar sugerencias y opiniones.