Imports System

Public Module Module1

    Class STUDENT 

            Public firstname As String 

            Public lastname As String

            Public DOB As Date

    End Class

    Dim student1 As New STUDENT

    Public Sub Main()

        Dim selection As Char

        While selection <> "C"

        Console.WriteLine("WELCOME to student database")

        Console.WriteLine()

        Console.WriteLine(" (A) add a student ")

        Console.WriteLine(" (B) view a student ")

        Console.WriteLine(" (C) quit ")

​

        selection = Console.ReadLine.ToUpper()

            If selection = "A" Then 

                Console.Write("Please enter the first name")

                student1.firstname = console.ReadLine()

                Console.Write("Please enter the last name")

                student1.lastname = console.ReadLine()

                Console.Write("Please enter the DOB")

                student1.DOB = console.ReadLine()

                Console.WriteLine("Student entered")

                Console.ReadLine()

                Console.Clear()

            Else If selection = "B" Then

                    Console.WriteLine("Student's firstname: " & student1.firstname)

                    Console.WriteLine("Student's lastname: " & student1.lastname)

                    Console.WriteLine("Student's DOB: " & student1.DOB)

                    Console.ReadLine()

                    Console.Clear()

                Else If selection = "B" Then

                    Console.Clear()

            End If 

        End While

        Console.ReadLine()

    End Sub

End Module