'Janet Koublanou

'2/11/2021

'NameBreaker Program

​

Imports System

Public Module Module1

    Public Sub Main()

        Dim fullName As String

        Dim firstName As String

        Dim lastName As String

        Dim spaceIndex As Integer

        Console.WriteLine("Enter full name: ")

        fullName = Console.ReadLine()

        fullName = fullName.ToLower()

        spaceIndex = fullname.Indexof(" ")

        firstName = fullName.Substring(0,spaceIndex)

        lastName = fullName.Substring(spaceIndex + 1)

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

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

    End Sub

End Module