ScrambleWords – Scrambling the words of the input string

' Scramble the words of the input string' Note: requires the ArrayShuffle routine'' Example:'   Dim text As String = "This is a test string for the ScrambleWords function"'   Debug.WriteLine(ScrambleWords(text))Function ScrambleWords(ByVal text As String) As String    Dim arr As String() = text.Split(" "c)    ArrayShuffle(arr)    Return String.Join(" ", arr)End Function