Sub Even()Console.Clear()Dim counter As Integer = 2Console.WriteLine(&quot;Even Numbers&quot;)Console.WriteLine(&quot;Please Enter the Number you Wish to End at: &quot;)Dim number As Integer = Console.ReadLine()Console.Clear()Console.WriteLine(&quot;All Even Numbers From 6 to &quot; & number)Do Until counter &gt; numberConsole.WriteLine(counter)counter += 2LoopConsole.WriteLine(&quot;Press Enter to Continue...&quot;)Console.ReadLine()End Sub