Imports System

Public Module Module1

    Public Sub Main()

        Dim A as string = "01000001"

        Dim B as string = "01000010"

        Dim C as string = "01000011"

        Dim D as string = "01000100"

        Dim E as string = "01000101"

        Dim F as string = "01000110"

        Dim G as string = "01000111"

        Dim H as string = "01001000"

        Dim I as string = "01001001"

        Dim J as string = "01001010"

        Dim K as string = "01001011"

        Dim L as string = "01001100"

        Dim M as string = "01001101"

        Dim N as string = "01001110"

        Dim O as string = "01001111"

        Dim P as string = "01010000"

        Dim Q as string = "01010001"

        Dim R as string = "01010010"

        Dim S as string = "01010011"

        Dim T as string = "01010100"

        Dim U as string = "01010101"

        Dim V as string = "01010110"

        Dim W as string = "01010111"

        Dim X as string = "01011000"

        Dim Y as string = "01011001"

        Dim Z as string = "01011010"

        Dim Letter as string = ""

        Letter = console.ReadLine()

        If Letter = A then

            console.WriteLine("01000001")

        End if

        'If Letter = B then

            'console.WriteLine(B)

​

    End Sub

End Module