    Public Function ConvertToBinary(ByVal number As Long, ByVal bits As _
                    Integer) As String
      ' Przeznaczenie: przekształcenie liczby na tekst 
      '      będący binarną reprezentacją tej liczby
      '
      ' Parametry:
      '  number liczba dziesiętna do przekształcenia 
      '         zapisana przy użyciu typu long
      '  bits  liczba bitów, które mają zostać pokazane
      '
      ' Zwracana wartość:
      '  string binarna reprezentacja liczby
      '
      Dim Length As Integer ' długość łańcucha = liczba bitów do
                            ' wyświetlenia
      Dim One As Integer, power As Long ' zmienne pomocnicze
      Dim bin As String     ' łańcuch binarny

      Length = bits         ' Zapisujemy liczbę bitów

      While Length >= 0
        power = 2 ^ Length
        One = CInt(number \ power) ' Dzielimy liczbę przez odpowiednią
                                   ' potęgę
        If One Then
          bin += "1"     ' Jeśli jest wystarczająco duża
        Else
          bin += "0"
        End If
        number = number Mod power ' Pobieramy resztę z dzielenia
        Length -= 1
      End While
      ' Poniższe pozwala nam zmieścić się w założonej liczbie bitów
      ConvertToBinary = Microsoft.VisualBasic.Right(bin, bits)
    End Function
