Integer to boolean !!!

Bonjour

Je souhaite trouver une fonction qui me rend un tableau de 16 bits quand je lui passe un integer

'Fonction de conversion d'entier en binaire
Public Function IntToBin(ByVal V As Long, Optional NbCarac As Byte = 16) As String
On Local Error GoTo Gestion_des_Erreurs
'***********************************************
'Déclaration
Dim I As Byte
Dim NewV As Long
'***********************************************
'Debut du Code
IntToBin = ""
NewV = V
For I = 1 To NbCarac
IntToBin = CStr(NewV Mod 2) & IntToBin
NewV = (NewV \ 2)
Next I
Exit Function
'*************************************************
'Gestion des Erreurs
Gestion_des_Erreurs:
Select Case Err.Number
Case Else
IntToBin = Empty
End Select
Exit Function
Resume
End Function

Letoiia