'-- 함수명 : ToBinary 
'-- 제작자 : 축복(q_death) 
'-- 홈페이지 : http://www.svkor.com/ 
'-- 이메일 : q_death@naver.com 
'-- 
'-- 사용법 : ex) MsgBox ToBinary(10&) '-- 10에 대한 2진수의 수를 구한다. 

Private Function ToBinary(ByVal Number As Long) As String
     If Number <= 0& Then
          Exit Function
     End If
    
     If Number = 1& Then
          ToBinary = 1&
          Exit Function
     End If
    
     Dim ValBinary As String
     Dim Val1 As Long
     Dim Val2 As Long
     Dim Val3 As Long
    
     Val3 = Number
    
     Do While Val1 <> 1&
          Val1 = Val3 \ 2&
          Val2 = Val3 Mod 2&
          Val3 = Val1
          
          If Val2 = 0 Then
               ValBinary = "0" & ValBinary
          Else
               ValBinary = "1" & ValBinary
          End If
     Loop
    
     ToBinary = "1" & ValBinary
End Function