Option Strict On

Imports System

Public Module Module1

    Public Sub Main()

        'Prompt for the name

        Console.Write("Name: ")

        Dim name As String = Console.ReadLine()

        'Check if the user's name matches my name or some of my relative's names.

        If name = "David" Then

            Console.WriteLine("You share my name!")

        ElseIf name = "Michael" OrElse name = "Stephen" Then

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

        Else

            Console.WriteLine("You neither share my name nor any of my brother's name.")

        End If

    End Sub

End Module