Imports System

Public Module Module1

    Public Sub Main()

        Dim cad As String = "hola   a todos   los estudiantes"

        Dim i As Integer = 0

        Dim pal As String = ""

        While i < cad.Length

            While i < cad.Length Andalso cad(i) <> " "

                pal = pal + cad(i)

                i = i + 1

            End While

            Console.WriteLine(pal)

            pal = ""

            While i < cad.Length Andalso cad(i) = " "

                i = i + 1

            End While

        End While

​

    End Sub

End Module