Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("What is your preferred username?")

        Dim Username = Console.ReadLine()

Dim countwords As String()

        countwords = Username.Split(" ")

Dim count As Integer

        For Each character In countwords

count = count + 1

Next

Console.WriteLine(count & " words entered")

​

    Console.WriteLine("What is your password?") 'needs to count characters, instead counts words'

        Dim Password = Console.ReadLine()

    Dim countwords2 As String()

    countwords2 = Password.Split(" ")

Dim count2 As Integer

        For Each character In countwords

count2 = count2 + 1

Next

Console.WriteLine(count & " words entered")

        Dim ValidHouse = {"Batten", "Rutherford", "Mansfield", "Kupe", "Snell", "Hillary", "Te Kanawa", "Upham"} 'inputting the houses allowed'

        Console.WriteLine("What is the student's house?")

        Dim House = Console.ReadLine()

        If House Is ValidHouse

            Console.WriteLine("That is not a house.") 'not accepting if house doesn't exist'

        Else If House IsNot ValidHouse

            Console.WriteLine("k")

        End If

​

        Console.WriteLine("What is the age of the student?")

        Dim Age As Integer = Console.ReadLine()

            If (Age<11) or (Age>18) Then

        Console.WriteLine("That is not possible. Please try again.")

                Age = Console.ReadLine()

    End If

        Dim StudentID(7)

        For i = 0 To 7

        Console.WriteLine("What is the character in position " & i & "?")

        StudentID(i) = Console.ReadLine()

        If StudentID(0) <> "S"

            Do Until StudentID(0) = "S"

                Console.WriteLine("That value is not allowed, please try again.") 'making it so that first character has to be S'

                StudentID(0) = Console.ReadLine()

            Loop

        Else 

            i = i + 1

            End If

        If StudentID(1) <> "J" 

            Do Until StudentID(1) = "J"

                Console.WriteLine("That value is not allowed, please try again.") 'making it so that second has to be J'

                StudentID(1) = Console.ReadLine()

            Loop

        Else 

            i = i + 1

            End If

        If StudentID(2) <> "L" 

            Do Until StudentID(2) = "L"

                Console.WriteLine("That value is not allowed, please try again.") 'making it so that third has to be L'

                StudentID(2) = Console.ReadLine()

            Loop

        Else 

            i = i + 1

            End If

        'make it so next 5 characters have to be integers'

    Next

    End Sub

End Module