Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim number as integer

        dim count as integer = 0

        Do 

            Console.WriteLine("Input a number:")

            number = Console.ReadLine()

            Console.WriteLine(number * 2)

            count = count + 1

            if count = 5 then

                number = -1

            end if

        Loop While number <> "-1"

    End Sub

End Module

​