Mix bogstaver i et ord

Function BlandBogstaver(ByVal sOrd As String) As String

    Dim i As Long, wLen As Long
    wLen = Len(sOrd)
    Dim pArr() As String
    ReDim pArr(1 To wLen)
    For i = 1 To wLen
        pArr(i) = Mid(sOrd, i, 1)
    Next i
    Dim NewPos As Long, NewVal As String
    Randomize
    For i = 1 To wLen
        NewPos = Int(wLen * Rnd + 1)
        NewVal = pArr(i)
        pArr(i) = pArr(NewPos)
        pArr(NewPos) = NewVal
    Next i
    Dim sOutstring As String
    For i = 1 To wLen
        sOutstring = sOutstring & pArr(i)
    Next i
    BlandBogstaver = sOutstring
   
End Function