How to convert Single to Binary? : We may use a `Convert.ToString()` overload to convert these types to binary:

    Byte
    Short
    Integer
    Long

For example:

    Dim iInteger As Integer
    Dim sBinary As String

    iInteger = Integer.MaxValue
    sBinary = Convert.ToString(iInteger, 2)

But there isn't an overload for `Single` that accepts the base value. The single-argument overload returns scientific notation, not the binary value.

I've tried this code:

    Public Function ToBinary(Value As Single) As String
      Dim aBits As Integer()

      Dim _
        iLength,
        iIndex As Integer

      Select Case Value
        Case < BitLengths.BYTE : iLength = 7
        Case < BitLengths.WORD : iLength = 15
        Case < BitLengths.DWORD : iLength = 31
        Case < BitLengths.QWORD : iLength = 63
      End Select

      aBits = New Integer(iLength) {}

      For iIndex = 0 To iLength
        aBits(iLength - iIndex) = Value Mod 2
        Value \= 2
      Next

      ToBinary = String.Empty

      aBits.ForEach(Sub(Bit)
                      ToBinary &= Bit
                    End Sub)
    End Function

Unfortunately, however, it returns inaccurate results.

Given these, how may we reliably convert a `Single` value to a binary string?
