jämföra tecken från två strängar

Va, är det ingen som har svarat än?

function fsort(str)
    if len(str) = 1 then fsort = str : exit function
    dim a(),i,t,sorted
    redim a(len(str)-1)
    for i = 0 to len(str) - 1
        a(i) = mid(str,i+1,1)
    next
    sorted = false
    while not sorted
        sorted = true
        for i = 0 to ubound(a) - 1
            if a(i) > a(i+1) then
               t = a(i)
               a(i) = a(i+1)
               a(i+1) = t
               sorted = false
            end if
        next
    wend
    fsort = join(a)
end function

if fsort("person1/person2") = fsort("person2/person1") then
'lika
end if

Tack.