Visual Basic Programming Code Examples Visual Basic > API and Miscellaneous Code Examples Decimal Numbers to Binary Decimal Numbers to Binary 'This function receives a byte and returns a string 'containing its binary equivalent. Function DecToBin(ByVal DecValue As Byte) 'Dimension some variables. Dim strOut As String Dim x As Long strOut = String$(8, Asc("0")) 'return 8 chr's 'Work out binary number. For x = 0 To 7 If (DecValue And 1) Then Mid$(strOut, 8 - x, 1) = "1" DecValue = (DecValue And -2) / 2 Next x 'Return binary number. DecToBin = strOut End Function