Public Function getD_IN(ByVal input As Object) As Boolean()
 
        ' Set up our variables
        Dim result(7) As Boolean
        Dim number As Integer = input(0)
        Dim ref As UInteger = 128
        Dim counter As UInt16
        Dim bit As Int16 = 7
 
        For counter = 0 To 7
            result(bit) = number >= ref
            If result(bit) Then number -= ref
            ref /= 2
            bit -= 1
        Next counter
 
        Return result
    End Function