Option Explicit
 
Private Declare Sub RtlMoveMemory Lib "kernel32" (ByVal pDst As Long, ByVal pSrc As Long, ByVal ByteLen As Long)
 
public function str2ArryByte(ByRef str as string) as byte()
dim lData() As byte
dim lSize as long
 
LSize = LENB(sString)
 
if (lSize = 0) Then exit function 'No tiene caso que siga si es una cadena sin caracteres.
redim lData(0 to (lSize-1))
 
RtlMoveMemory byval VarPtr(lData(0)) + &H3, byval StrPtr(sString), lSize
 
str2ArryaByte = lData
 
end function
 
 

        Do While Not Rs.EOF And Not Rs.BOF
            'Lsb.AddItem Rs.Fields(0).Value
            Lsb.AddItem "1"
            Rs.MoveNext
        Loop

Lsb.AddItem "" & Rs.Fields(0).Value
 

Function DimeQueHagoB(ByVal Valor1 As Long, ByVal Valor2 As Long, Bits As Byte) As Integer
Dim lV3 As Long
Dim iCount As Byte
 
	lV3 = (Valor1 Xor Valor2) 
 
	if lV3 = 0 Then exit function
        REM {
		No recuerdo si es 32 o 64 dejo 32...
	}
	If (Bits > 32) Then Bits = 32
 
	For iCount = 1 to Bits
		REM {
			No recuerdo si para dividir y tener un valor entero es \ o / :(
		}
		lV3 = lV3 \ 2
		If (lV3 And &H1) Then
			DimeQueHagoB = DimeQueHagoB + 1
		Else If (lV3 = 0) Then
			Exit Function
		End If
	Next iCount
End Function