'Juan Campos

'Name Breaker

​

Imports System

Public Module Module1

    Public Sub Main()

        Dim word As String              'Declare Variable

        Dim letter As Integer

        Dim firstname As String

        Dim lastname As String

​

        Console.Write("Enter name: ")               'Get User Input

        word = console.ReadLine()

        word = word.ToLower()

        Letter = word.IndexOf(" ")

​

        firstname = word.Substring(0, letter)           'Equation

        lastname = word.Substring(letter)

        Console.WriteLine(firstname)                'Output

        Console.WriteLine(lastname)

    End Sub

End Module