Private Function Get_Binary(iInComing As Integer) As String

' ---------------------------------------------------------
' Written by Kenneth Ives             kenaso@home.com
'
' convert an integer value to its binary equivilent
'
' ---------------------------------------------------------

' ---------------------------------------------------------
' Define variables
' ---------------------------------------------------------
  Dim iDecValue As Integer
  Dim iBitCnt As Integer
  Dim iBitValue As Integer
  Dim iCurrBit As Integer
  Dim sTmp As String

' ---------------------------------------------------------
' Initialize variables
' ---------------------------------------------------------
  iDecValue = iInComing
  iBitCnt = 0
  iBitValue = 128
  sTmp = ""

' ---------------------------------------------------------
' Parse the incoming integer and determine which bits
' should be turned on
' ---------------------------------------------------------
  Do
      ' Increment the bit count
      iBitCnt = iBitCnt + 1

      ' divide the input integer by the current
      ' bit value.  Starts at 128
      iCurrBit = Int(iDecValue / iBitValue)

      ' if the results are greater than zero then
      ' a "1" is placed in that bit position; otherwise,
      ' a "0" will be placed there
      If iCurrBit > 0 Then
    
          ' append a "1" to the string
          sTmp = sTmp & "1"

          ' subtract the current bit value
          ' from the input integer
          iDecValue = iDecValue - iBitValue
      Else
          ' append a "0" to the string
          sTmp = sTmp & "0"
      End If
    
      ' Decrement the Bit value by dividing by 2
      iBitValue = Int(iBitValue / 2)
    
  Loop Until iBitCnt = 8

' ---------------------------------------------------------
' REturn the binary expression
' ---------------------------------------------------------
  Get_Binary = sTmp

End Function