Imports System

Public Module Module1

    Public Sub Main()

        Dim Letters(99) as String

        Dim MyString as String

        Dim RandomClass as new Random()

        Dim RandomNumber as integer

        Dim Anagram as String

        Do

            Console.writeline("Enter word to scramble(with 2 or more letters)") 

            MyString = Console.ReadLine()

        Loop Until MyString.Length >= 2

        for i = 0 to mystring.Length

            letters(i+1) = MyString.Substring(i,1)          

        next

        RandomNumber = Randomclass.next(1,Mystring.Length + 1)

    End Sub

End Module