Imports System

Public Module Module1

    Public Sub Main()

        dim startv as long

        dim unit as integer

        dim bit as integer

        Console.WriteLine("Unit to bit converter...")

        Console.WriteLine("Please enter which type of unit you would like:")

        Console.WriteLine("[1]byte")

        Console.WriteLine("[2]kilobyte")

        Console.WriteLine("[3]megabyte")

        Console.WriteLine("[4]gigabyte")

        Console.WriteLine("[5]terrrabyte")

        unit=console.ReadLine()

        Console.WriteLine("How many units do you want?")

        startv=console.ReadLine()

        if unit="1" then

            startv=startv*1

            startv=startv*8

        end if

        if unit="2" then

            startv=startv*1000

            startv=startv*8

        end if

        if unit="3" then

            startv=startv*1000000

            startv=startv*8

        end if

        if unit="4" then

            startv=startv*1000000000

            startv=startv*8

        end if

        if unit="5" then

            startv=startv*1000000000000

            startv=startv*8

        end if

        console.WriteLine("You have "&startv &"bits")

    End Sub

End Module