Imports System

Public Module Module1

    Public Sub Main()

        console.WriteLine("Input string")

        Dim s As String = console.ReadLine()

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

​

        For Each word As String In words

            console.Writeline(word)

        Next

    End Sub

End Module