Public Function DecToBin(ByVal DeciValue As Long, Optional ByVal NoOfBits As Integer = 8) As String
  Dim i As Integer
  Do While DeciValue > (2 ^ NoOfBits) - 1
   NoOfBits = NoOfBits + 8
  Loop
  DecToBin = vbNullString
  For i = 0 To (NoOfBits - 1)
   DecToBin = CStr((DeciValue And 2 ^ i) / 2 ^ i) & DecToBin
  Next i
 End Function

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  MsgBox("Число 255 в двоичном виде будет выглядеть так: " & DecToBin(255))
 End Sub