Помогите бедной студентке!))

Sub nnn()
Dim sl As String, ns As String, i As Integer, l As Integer, ls As Integer
sl = InputBox("Впишите слово", , "привет")
If sl = Empty Then Exit Sub
ns = ""
ls = Len(sl)
For i = 1 To ls
j = Int(Rnd() * ls + 1)
ns = ns & Mid(sl, j, 1)
sl = IIf(j > 1, Mid(sl, 1, j - 1), "") & _
"" & Mid(sl, ls, 1) & IIf(j < ls, Mid(sl, j + 1), "")
ls = ls - 1
Next i
MsgBox ns
End Sub