Imports System

imports microsoft.visualbasic

​

​

Public Module Module1

    Public Sub Main()

        dim full as string

        dim name as string

        console.writeline("Enter full name")

        full=console.readline()

        console.writeline("Your first and second name" &name)

        Dim words As String()=full.Split(New Char() {" "c})

        Dim word As String

        For Each word In words

        Console.WriteLine(word)

    Next

    End Sub

End Module