Module Module1
Sub Main()
       
 Dim s As String = "This is the output"
 Dim words As String() = s.Split(New Char() {" "c})
 For Each word As String In words
 Console.WriteLine("WORD: {0}", word)
        Next
End Sub
End Module