Option Strict On

Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Name: ")

        Dim name As String = Console.ReadLine()

        Dim message As String = If(name = "David", "We share the same name!", "Cool name!")

        Console.WriteLine(message)

    End Sub

End Module