Module Module1

    Sub Main()

        Dim myValue As Integer = 0  'Variable that will hold the value    

	'Print a question
        Console.WriteLine("How many computers do you have? (answer with a number)")

        myValue = Val(Console.ReadLine())               'Input

        Console.WriteLine("You have " & Val(myValue))   'Output

        Console.ReadLine() 'Wait for a key to be pressed

    End Sub

End Module