Function ConvertBase10ToBase2(ByVal Value As Long) As String
    Dim lQuotien As Long, lRest As Long
    
'   valeur  positive
    ConvertBase10ToBase2 = vbNullString
    Value = Abs(Value)
'   crée la  chaîne
     Do
        lQuotien = Value \ 2
        lRest = Value - (lQuotien * 2)
        ConvertBase10ToBase2 = CStr(lRest) & ConvertBase10ToBase2
        Value = lQuotien
     Loop Until lQuotien = 0
End Function

 function convertToBase2(number) {
     return number.toString(2); // 2 peut être remplacé par n'importe quel nombre entre 2 et 36
 }
 
 alert(convertToBase2(1337));
 
 

Function ConvertBase10ToBase2(ByVal Value As Long) As String

Dim lQuotien As Long, lRest As Long

Dim sRet As String = String.Empty 

    ' valeur positive

    Value = Math.Abs(Value)

    ' crée la chaîne

    Do

        lQuotien = Value \ 2

        lRest = Value - (lQuotien * 2)
        sRet = String.Concat(lRest.ToString, sRet) 
        Value = lQuotien
    Loop Until lQuotien = 0 
    Return sRet 
End Function

voir le snippet :
 
 Codyx - Convertion donnée vers chaine binaire 
 Fonctionne pour tout.

proc Dec2Bin s {
 binary scan [binary format I $s] B32 str
 return [string trimleft $str 0]
}

String ibin = Integer.toBinaryString(666);
String lbin = Long.toBinaryString(666L);



System.out.println(ibin);
System.out.println(lbin);

 Public Function IntToBin(ByVal value As Integer) As String
    value = Math.Abs(value)
    Do
       IntToBin = String.Concat(value Mod 2, IntToBin)
       value \= 2
    Loop Until value = 0
    Return IntToBin
 End Function