Imports System

​

Public Module Module1

Public Sub Main()

        Dim sChar as char

        Dim sString as string

        Dim nInt as long

        Dim nsINt as short

        'text type variable automatically convert - but you may lose data with no errors or warnings

        sChar = "A"

        Console.WriteLine(sChar)

        sChar = "AB"

        Console.WriteLine(sChar)

        sString = "A"

        Console.WriteLine(sString)

        sString = "AB"

        Console.WriteLine(sString)

        sChar = "C"

        Console.WriteLine(sChar)

        sString = sChar

        Console.WriteLine(sString)

        sString  = "EF"

        sChar = sstring

        Console.WriteLine(sString)

        Console.WriteLine(sChar)

        'console.OutputEncoding

        nInt = 2^20

        Console.WriteLine(nInt)

        'nsInt = 2^20

        'Console.WriteLine(nsInt)

        'nsInt = Convert.ToInt16(nInt)

        'Console.WriteLine(nsInt)

        sString = "15"

        nInt = Convert.ToInt16(sString)

        Console.WriteLine (nInt)

        Console.WriteLine ("Hex: {0:X}", sString)

        Console.WriteLine ("Hex: {0:X}", nInt.ToString())

        Console.WriteLine("To binary stuff")

        Console.WriteLine (Convert.ToString(nInt,2))

        Dim byteArray() As Byte = System.Text.Encoding.ASCII.GetBytes(sString)

        For i = 0 to byteArray.GetUpperBound(0)

            Console.Write("{0:X}",Microsoft.VisualBasic.Right("00000000" & Convert.ToString(byteArray(i),2),8) & " " )

        Next

End Sub

End Module