Hola
Mundo 
Como

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oracion As String = "Hola Mundo Como estas?"  'Trim(TextBox_oracion.Text())
        Dim i As Integer = 1
        Dim posicion As Integer
        Dim palabra As String
        Dim NuevaFrase As String = Nothing
        Do
            posicion = InStr(i, oracion, Convert.ToChar(Keys.Space))
            If posicion > 0 Then
                palabra = Mid(oracion, i, posicion - i)
                NuevaFrase += palabra
                posicion += 1
                i = posicion
            End If
        Loop Until posicion = 0
        ListBox1.Items.Add(NuevaFrase)
    End Sub
End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Cadena As String = "Hola Mundo Como estas?"
        Dim Array() As String = Cadena.Split(Convert.ToChar(Keys.Space)) 
        Dim NuevaCadena As String = Nothing
        For I As Integer = 0 To Array.Count - 1
            NuevaCadena += Array(I)
        Next
        ListBox1.Items.Add(NuevaCadena)
    End Sub

Option Explicit On
Option Strict On
Public Class Form1
 
    Dim lstLista1 As ListBox = New ListBox 'Nuevo ListBox
    Dim lstLista2 As ListBox = New ListBox 'Nuevo ListBox
    Dim btnNormal As Button = New Button 'Nuevo Button
    Dim btnAleatorio As Button = New Button 'Nuevo Button
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Controls.Add(lstLista1)
            .Controls.Add(lstLista2)
            .Controls.Add(btnNormal)
            .Controls.Add(btnAleatorio)
            .Size = New System.Drawing.Size(445, 200)
            .Text = "Demo"
        End With
 
 
        lstLista1.Location = New Point(10, 10)
        lstLista1.Width = 200
 
        lstLista2.Location = New Point(lstLista1.Left + lstLista1.Width + 10, 10)
        lstLista2.Width = 200
 
        With btnNormal
            .Size = New System.Drawing.Size(150, 23)
            .Location = New Point(CInt((lstLista1.Width / 2) - (btnNormal.Width / 2) + lstLista1.Left), lstLista1.Height + lstLista1.Top + 10)
            .Text = "Frase Normal"
        End With
 
        With btnAleatorio
            .Size = New System.Drawing.Size(150, 23)
            .Location = New Point(CInt((lstLista2.Width / 2) - (btnAleatorio.Width / 2) + lstLista2.Left), lstLista2.Height + lstLista2.Top + 10)
            .Text = "Frase desordenada"
        End With
 
        AddHandler btnNormal.Click, AddressOf btnNormal_Click
        AddHandler btnAleatorio.Click, AddressOf btnAleatorio_Click
    End Sub
 
    Private Sub btnNormal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim IndexItem As Integer = 0
        Dim Cadena As String = "Hola    Mundo Como estas?" & ControlChars.CrLf & "Estoy bien"
        Cadena = Cadena.Replace(ControlChars.CrLf, Convert.ToChar(Keys.Space))
        Dim Array() As String = Cadena.Split(Convert.ToChar(Keys.Space))  'Crea un Item en el array por cada palabra de la Cadena {"Hola","","que","","tal"...}
        Dim Lista As New List(Of String)
 
        For I As Integer = 0 To Array.Length - 1
             Lista.Add(Array(I))
        Next
 
        Dim NuevaCadena As String = Nothing 'String para la nueva cadena
        For Each Palabra As String In Lista
            NuevaCadena += Palabra & Convert.ToChar(Keys.Space)
        Next
 
        lstLista1.Items.Clear()
        lstLista1.Items.Add(DBNull.Value)
        lstLista1.Items(IndexItem) = NuevaCadena
    End Sub
 
    Private Sub btnAleatorio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim IndexItem As Integer = 0
        Dim Cadena As String = "Hola Mundo    Como estas?" & ControlChars.CrLf & "Estoy bien"
        Cadena = Cadena.Replace(ControlChars.CrLf, Convert.ToChar(Keys.Space))
        Dim Array() As String = Cadena.Split(Convert.ToChar(Keys.Space))  'Crea un Item en el array por cada palabra de la Cadena {"Hola","","que","","tal"...}
        Dim Lista As New List(Of String) 'Lista para las palabras
 
 
        For I As Integer = 0 To Array.Length - 1 Then 
           Lista.Add(Array(I)) 
        Next
 
 
        Dim NumAleatorio As Integer
        Dim Rand As New Random 'El equivalenta a Rnd() de VB (no necesita es uso Randomize())
        Dim NuevaCadena As String = Nothing 'String para la nueva cadena 
        Do
            NumAleatorio = Rand.Next(0, Lista.Count)
            'Obtiene un número aleatorio entre 0 y el número de elementos de la lista
            NuevaCadena += CStr(Lista(NumAleatorio).ToString & Convert.ToChar(Keys.Space))
            'Elimina el elemento de de la lista con índice = NumAleatorio (para evitar repetir palabras)
            Lista.RemoveAt(NumAleatorio)
            My.Application.DoEvents()
        Loop Until Lista.Count = 0
 
        lstLista2.Items.Clear()
        lstLista2.Items.Add(DBNull.Value)
        lstLista2.Items(IndexItem) = NuevaCadena
    End Sub
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Me.StartPosition = FormStartPosition.CenterScreen
    End Sub
End Class
 

--VB--> Ubound(Array)   --VB.NET--> Array.Count
--VB--> Char(código)     --VB.NET-->  convert.ToChar(código)
--VB--> Mid(Cadena, Start, Lenght)    --VB.NET--> Cadena.Substring(Start, Length)
--VB--> UCase(Cadena) --VB.NET-->  Cadena.ToUpper   

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim frase As String = "Hola Mundo Hacker Soy Flamer"
        Dim matrix() As String = frase.Split(Convert.ToChar(Keys.Space)) 
        Dim NuevaFrase As String = Nothing
        For I as integer = 0 To matrix.Length - 1
            MessageBox.Show(matrix(I))
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Pos As Integer = 0
        Dim Palabra As String = Nothing
        Dim Cadena As String = "Hola mundo ¿Cómo estás?"
        Dim Contador As Integer
        Do
            Contador = Contador + 1
            Pos = InStr(1, Cadena, " ", vbTextCompare) 'Busca la posición del primer " "
            If Pos > 0 Then 'Pos > 0 Esto es así cuando se ha encontrado un espacio " "
                Palabra = Mid(Cadena, 1, Pos - 1) 'Obtiene la palabra
                Cadena = Replace(Cadena, Palabra & " ", "") 'Elimina de la cadena la palabra encontrada y el espacio " "
            Else 'Ya no quedan espacios " "
                Palabra = Cadena 'Mete en 'Palabra lo que queda en cadena tal cual
            End If
            ListBox1.Items.Add("Palabra" & Contador & ": " & Palabra)
        Loop Until Pos = 0
    End Sub
 

 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Pos As Integer = 0
        Dim Palabra As String = Nothing
        Dim Cadena As String = "Hola mundo ¿Cómo estás?"
        Dim Contador As Integer
        Do
            Contador = Contador + 1
            Pos = Cadena.IndexOf(" ")
            If Pos > -1 Then
                Palabra = Cadena.Substring(0, Pos)
                Cadena = Cadena.Replace(Palabra & " ", "")
            Else
                Palabra = Cadena
            End If
            ListBox1.Items.Add("Palabra" & Contador & ": " & Palabra)
        Loop Until Pos = -1
 
    End Sub
 
 

Private Sub Command1_Click()
        Dim Pos As Integer
        Dim Palabra As String
        Dim Cadena As String
        Dim Contador As Integer
 
        Cadena = "Hola mundo ¿Cómo estás?"
  Do
        Contador = Contador + 1
        Pos = InStr(1, Cadena, " ", vbTextCompare)
        If Pos > 0 Then
        Palabra = Mid(Cadena, 1, Pos - 1)
        Cadena = Replace(Cadena, Palabra & " ", "")
        Else
        Palabra = Cadena
        End If
        List1.AddItem "Palabra" & Contador & ":" & Palabra
  Loop Until Pos = 0
End Sub