Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

        Dim forename, lastname, fullname as string

        Console.WriteLine("Input fullname")

        fullname = console.ReadLine

        forename = Left(fullname, " ")

        lastname = Right(fullname. " ")

        Console.WriteLine("Forename = " forename)

        Console.WriteLine("Lastname = " lastname)

    End Sub

End Module