Imports System

Public Module Module1

    Public Sub Main()

        Console.Write("First Name: ")

        Dim firstName As String = Console.ReadLine()

​

        Select Case firstName

            Case "David"

                Console.WriteLine("We share the same name!")

            Case "Michael"

                Console.WriteLine("You share my brother's name!")

            Case Else

                Console.WriteLine("You have a pretty cool name.")

        End Select

    End Sub

End Module