QTP - UFT - Can you write a script to sort "uftquestions" as "efinoqssttuu"

Link to Mandatory QTP /UFT Interview Questions to read before Interview

 

One of the best method I would use for sorting is using object of "System.Collections.ArrayList"

Code:
Set o1 = Createobject("system.collections.ArrayList")
strInput = "UFTQuestions"
For k = 1 To len(strInput)
    o1.Add mid(strInput,k,1)
Next
o1.sort

For uj = 0 to o1.count-1
    strOutput = strOutput & o1(uj)
Next
msgbox strOutput

Output:- strOutput is "eFinoQsstTuU"

Happy reading,
Sreenu Babu

Link to Mandatory QTP /UFT Interview Questions to read before Interview