Mengubah Karakter ke Binner dengan VB 6.0

Hallo kawand2, sekarang aQ pengen posting tentang mengubah karekter ke binner dengan menggunakan Visual Basic,
kita langsung ke persoalan,, hehehe
nah sekarang kita buat sebuah form yang terdiri dari dua Command dan dua textbox

nah setelah buat seperti form di atas sekarang kita tinngal ketikan Source codenya seperti
di bawah ini...


Private Sub cmdBinearkeChar_Click()

    Dim lnilai As Integer
    Dim hasil As Long
   
   
    nilai = Me.TxtChar.Text           'Angka Inputan(Binear) dimasukkan ke variabel Nilai
   
    lnilai = Len(nilai)               'Menghitung Panjang Angka Biner (Max 8 karakter)
   
    For i = 1 To lnilai
        hasil = hasil + CLng(Mid(nilai, i, 1)) * (2 ^ (lnilai - i))
       
      
    Next
   
    Me.txtHex.Text = hasil             'mencetak Konversi ANgka Biner ke Keyascii Pada Text Hex
   
   
    'Me.txtHasil.Text = Chr(Me.txtHex.Text) 'mencetak Karakter Pada Text Hasil
   
End Sub

Private Sub cmdCharKeBinear_Click()
   
    Dim nilai As Integer
    Dim Nilai2 As Long
    Dim hasil As String
    Dim LHasil As Integer
    Dim biner As String
   
   
    nilai = Asc(Me.TxtChar.Text)            'mencetak Keyascii Pada Text Char

    '-----------------Perulangan Sampai Nilai Habis----------------
    Do Until nilai = 0
   
        Nilai2 = nilai Mod 2            'Sisa Pembagian Nilai dimasukkan ke variabel Nilai2
       
        nilai = nilai \ 2               'Hasil Dari Pembagian (Nilai dibagi 2)
       
        hasil = hasil & CStr(Nilai2)    'Penampungan Sementara Hasil Angka Biner ke variabel Hasil
       
    Loop
    '---------------------------------------------------------------

    LHasil = Len(hasil)                 'Menghitung Panjang Angka Biner (Max 8 karakter)
   
    '-----------------Proses Pembalikan Angka Biner-----------------
    For i = 0 To LHasil - 1
   
        biner = biner & Mid(hasil, LHasil - i, 1)
       
    Next
    '---------------------------------------------------------------

    Me.txtHasil.Text = biner            'Mencetak Angka Biner Ke Textbox

   
End Sub

script di atas suda ada penjelasannya jadi tidak perlu di perjelas lagi kan...