Public Class Tester
Public Shared Sub Main
Dim counter As Integer
Dim position As Integer
Dim holdChar As Char
Dim jumbleMethod As New Random
Dim quote As String = "abcedfg"
Dim chars() As Char = CType(quote, Char())
For counter = 0 To chars.Length - 1
position = jumbleMethod.Next Mod chars.Length
holdChar = chars(counter)
chars(counter) = chars(position)
chars(position) = holdChar
Next counter
Dim result As String = New String(chars)
Console.WriteLine(result)
End Sub
End Class
cfabdge