Data Type VB.Net Tutorial

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