Imports System

Public Module Module1

    Public Sub Main()

        dim response as integer 

        do 

            console.writeline("would you like to enter another screen for testing? 1 for yes or 2 for no ")

            response = console.readline()

        loop until response = 2 

​

    End Sub

End Module