Imports System

Public Module Module1

    Public Sub Main()

        dim word as string

        dim num as integer

        console.writeline ("State the word you are trying to make it to be anagramed")

        word = console.readline

        num = word.length

        dim wordchars(num - 1) as string

        dim indicator as integer = 0

        dim j as string

        dim k1 as integer

        dim k2 as integer

        dim o0 as integer

        for i = 0 to num - 1

        wordchars(i) = word.tolower.Substring(i,1)

        next

        for l = 1 to 1000

            dim o as new random ()

            o0 = o.next(-1000,1000)

            dim randomclass1 as new random(o0 + l)

            dim randomclass2 as new random(o0 + l + 1)

            k1 = randomclass1.next(0,num)

            k2 = randomclass2.next(0,num)

            j = wordchars(k1) 

            wordchars(k1) = wordchars(k2)

            wordchars(k2) = j

        next

        dim anagramed as string = ""

​

        for n = 0 to num - 1

            anagramed = anagramed & wordchars(n)

        next

​

        console.writeline (anagramed)

​

    End Sub

End Module