Swap words in a string

Private Sub Form1_Load(sender As Object, e As EventArgs)
    Dim word As String = "I like cake"
    Dim split As String() = word.Split(New Char() {" "c}, 
        StringSplitOptions.RemoveEmptyEntries)
    Dim words As New List(Of String)()

    HeapPermute(words, split, split.Length)

    ' "words" now contains all possible permutations of "word"
End Sub

Private Sub HeapPermute(words As List(Of String), split As String(), splitCount As Integer)
    Dim n As Integer = splitCount

    If n = 1 Then
        'add item
        Dim temp As String = ""
        For i As Integer = 0 To split.Length - 1
            temp += split(i) & " "
        Next
        words.Add(temp.TrimEnd(" "c))
    Else
        For i As Integer = 0 To n - 1
            HeapPermute(words, split, (n - 1))
            If n Mod 2 = 1 Then
                'odd
                Dim temp As String = split(0)
                split(0) = split(n - 1)
                split(n - 1) = temp
            Else
                'even
                Dim temp As String = split(i)
                split(i) = split(n - 1)
                split(n - 1) = temp
            End If
        Next
    End If
End Sub

Dim original As String = "I like cake"
Dim words As String() = original.Split(New Char() {" "}, 
    StringSplitOptions.RemoveEmptyEntries)
Array.Reverse(words)
Dim reversed As String = String.Join(" ", words)

string s = "a bunch of words";
string[] parts = s.Split(' '); //Splits the string where ever there is a space character