Pasar de Decimal a Binario

Esta función para VisualBasic permite pasar cualquier valor decimal a binario. Recibe el valor desde donde trabajar en entero largo y retorna el dato en binario en formato de cadena. Con modificaciones leves, orientadas a las sentencias se la puede utilizar en casi cualquier lenguaje de programación dado a que la estructura lógica en si es universal.

Function Binario(ByVal valor As Long) As String
Dim mayor As Integer
Dim retorno As String
Dim a As Integer

'Busca el mayor exponente
mayor = 0
Do While True
    If 2 ^ mayor > valor Then
        If mayor > 0 Then
            mayor = mayor - 1
            End If
        Exit Do
        End If
    mayor = mayor + 1
    Loop

'Calculo del valor binario
retorno = ""
For a = mayor To 0 Step -1
    If valor < (2 ^ a) Then
        retorno = retorno & "0"
    Else
        retorno = retorno & "1"
        valor = valor - (2 ^ a)
    End If
    Next a

'Pasa el valor como resultado de la función
Binario = retorno
End Function