Imports System

'Neel Kaushik

'2/12/20 

'NameBreaker Program

Public Module Module1

    Public Sub Main()

        Dim fullName As String

        Dim firstName As String

        Dim lastName As String

        Dim spaceIndex As String

        Console.WriteLine("Enter your full name, with a space between your first and last name")

        fullName = Console.ReadLine()

        fullName = fullName.ToLower

        spaceIndex = fullName.Indexof(" ")

        firstName = fullName.Substring(0 , spaceIndex)

        lastName = fullName.Substring(spaceIndex)

        Console.WriteLine("First Name: " & firstName)

        Console.WritelIne("Last Name: " & lastName) 

    End Sub

End Module