Contact: aviboots(AT)netvision.net.il
40,886 questions
53,294 answers
573 users
Imports System Public Class Test Public Shared Sub Main() Dim ch As Char = "a" Console.WriteLine(Convert.ToString(Convert.toInt32(ch), 2).PadLeft(4, "0"C)) End Sub End Class 'run: ' 1100001