Imports System

Public Module Module1

    Public Sub Main()

        Dim selection As String

        Dim input As String

        Dim retry As String

        Dim yes As String

        Dim yes1 As String

        yes = "yes"

        yes1 = "Yes"

        '▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅'

SELECTION:

        input = 0

        retry = 0

        Console.WriteLine(" ")

        Console.WriteLine("Input a value to skip to a different validation check")

        selection = Console.ReadLine()

        If selection = 1 Then

            GoTo BLANK_VALIDATION

        ElseIf selection = 2 Then

            GoTo NUMERICAL_VALIDATION

        ElseIf selection = 3 Then

            GoTo LENGTH_VALIDATION

        Else

            GoTo SELECTION

        End If

        '▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅'

BLANK_VALIDATION:

​

        Console.WriteLine(" ")

        Console.WriteLine("input a value:")

        Do

            input = Console.ReadLine()

            Console.WriteLine(input)

            If input = String.Empty Then

                Console.WriteLine(" ")

                Console.WriteLine("invalid input, input again")

                GoTo BLANK_VALIDATION

            End If

        Loop Until input <> String.Empty

        Console.WriteLine(" ")

        Console.WriteLine("Valid Input")

        Console.WriteLine(" ")

        Console.WriteLine("Would you like to test a different validation check? Yes/No")

        retry = Console.ReadLine()

        If retry = yes Then

            GoTo SELECTION

        ElseIf retry = yes1 Then

        Else

            GoTo ENDPROGRAM

        End If

        '▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅'

NUMERICAL_VALIDATION:

​

        Dim numinput As Integer

        Console.WriteLine(" ")

        Console.WriteLine("input a number:")

        numinput = Console.ReadLine()

        If numinput < 0 Or numinput > 0 Then

            Console.WriteLine("Valid Input")

        Else

            Console.WriteLine(" ")

            Console.WriteLine("invalid input, input again")

            GoTo NUMERICAL_VALIDATION

        End If

        Console.WriteLine(" ")

        Console.WriteLine("Would you like to test a different validation check? Yes/No")

        retry = Console.ReadLine()

        If retry <> ("No") Or ("no") Then

            GoTo ENDPROGRAM

        Else

            GoTo SELECTION

        End If

        '▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅'

LENGTH_VALIDATION:

        Dim length As Integer

        Console.WriteLine(" ")

        Console.WriteLine("input a 6 character long value:")

        input = Console.ReadLine()

        length = input.Length

        If length < 6 Or length > 6 Then

            Console.WriteLine(" ")

            Console.WriteLine("Invalid Input")

            GoTo LENGTH_VALIDATION

        Else

            Console.WriteLine(" ")

            Console.WriteLine("Valid Input")

        End If

        Console.WriteLine()

        Console.WriteLine(" ")

        Console.WriteLine("Would you like to test a different validation check? Yes/No")

        retry = Console.ReadLine()

        If retry = yes Then

            GoTo SELECTION

        ElseIf retry = yes1 Then

        Else

            GoTo ENDPROGRAM

        End If

        '▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅'

RANGE_VALIDATION:

        Console.WriteLine(" ")

        Console.WriteLine("input a number between 0 and 31:")

        input = Console.ReadLine()

        If input <= 31 AND input <=0

            Console.WriteLine(" ")

            Console.WriteLine("Valid Input")

        else

            Console.WriteLine(" ")

            Console.WriteLine("Invalid Input")

            GoTo RANGE_VALIDATION

            end if

        '▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅▅'

ENDPROGRAM:

    End Sub

End Module