ANUMB=hex(rs1(6))
         SNUMB=6-Len(ANUMB)
         HNUMB=String(SNUMB, "0")&ANUMB
         rs2.Fields("CODEKEY").Value = trim("18" & HNUMB & "00000000")

msgbox bin2dec(dec2bin(135))

Function Dec2Bin(n)
Do Until n = 0
    If (n Mod 2) Then Dec2Bin = "1" & Dec2Bin Else Dec2Bin = "0" & Dec2Bin
    n = n \ 2
Loop
End Function

Function Bin2Dec(strBin)
  Dim intLen, intPos, intValue, strTemp, strValue
  intLen = Len(strBin)
  intPos = 1
  intValue = 0
  strTemp = strReverse(strBin)

  Do While intPos <= intLen
    strValue = Mid(strTemp, intPos, 1)
    Select Case strValue
      Case "0"
      Case "1"
        If intPos = 1 Then
          intValue = intValue + 1
        Else
          intValue = intValue + (2 ^ (intPos - 1))
        End If 
      Case Else
        intValue = Empty
        Exit Do
    End Select 
    intPos = intPos + 1
  Loop

  Bin2Dec = intValue
End Function

Msgbox ncdk