CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to Scramble Word - Guaranteed different every time.
Public Function ScrambleWord(Word)
    Randomize
    Length = Len(Word)
    ReDim Letter(Length)
    For I = 1 To Length
5       RndSlot = Int(Rnd * Length) + 1
        If RndSlot = Length + 1 Or Letter(RndSlot) <> "" Then
            GoTo 5
        Else
            Letter(RndSlot) = Mid$(Word, I, 1)
        End If
    Next I
    For I = 1 To Length
        Scrambled = Scrambled & Letter(I)
    Next I
    ScrambleWord = Scrambled
End Function