Android Question Order String

Dim data As String = "C1, P5, S939, S3, C5, S9, C3, S1, P1, S10"
Dim output,items(),prefix,num As String
Dim l As List
l.Initialize
items=Regex.Split(", ",data)
For x=0 To items.Length-1
num=("000000"&items(x).SubString(1))
If items(x).StartsWith("P") Then prefix="1"
If items(x).StartsWith("S") Then prefix="2"
If items(x).StartsWith("C") Then prefix="3"
l.Add(prefix &"-"&  num.SubString(num.Length-5) & "-" & items(x))
Next
l.Sort(True)
For x=0 To l.Size-1
output=output & Regex.Split("-",l.Get(x))(2)
If x<l.Size-1 Then output=output&", "
Next
Log(output)

Dim data As String = "C1, P5, S939, S3, C5, S9, C3, S1, P1, S10"
Dim output,items(),prefix,num As String
Dim l,p As List
p.Initialize
p.AddAll(Array As String("P","S","C")) ' <- here
l.Initialize
items=Regex.Split(", ",data)
For x=0 To items.Length-1
num=("000000"&items(x).SubString(1))
l.Add(p.IndexOf(items(x).SubString2(0,1)) &"-"&  num.SubString(num.Length-5) & "-" & items(x))
Next
l.Sort(True)
For x=0 To l.Size-1
output=output & Regex.Split("-",l.Get(x))(2)
If x<l.Size-1 Then output=output&", "
Next
Log(output)

Sub SetCustomOrder(originalString As String, customOrder As String, ascending As Boolean) As String
    Dim tempString, finalString   As String
    Dim tempList(2)               As List
    For co = 0 To (customOrder.Length - 1)
        tempList(0).Initialize
        tempList(1).Initialize
        For os = 0 To (originalString.Length - 1)
            If originalString.CharAt(os) = customOrder.CharAt(co) Then
                tempList(0).Add(originalString.CharAt(os))
                For n = Min(os + 1, (originalString.Length - 1)) To (originalString.Length - 1)
                    If Asc(originalString.CharAt(n)) >= Asc("0") And Asc(originalString.CharAt(n)) <= Asc("9") Then
                        tempString = tempString & originalString.CharAt(n)
                    Else
                        Exit
                    End If
                Next
                Dim num = tempString As Long
                tempList(1).Add(num)
                tempString = ""
            End If
        Next
        tempList(1).Sort(ascending)
        For l = 0 To (tempList(0).Size - 1)
            finalString = finalString & tempList(0).Get(l) & tempList(1).Get(l) & ", "
        Next
    Next
    Return finalString.SubString2(0, Max(0, finalString.Length - 2))
End Sub

txt="SELECT ITEM, CASE WHEN substr(ITEM,1,1)= 'P' THEN 1 WHEN substr(ITEM,1,1)= 'S' " _ 
    & "Then 2 Else 3  End As RANK FROM tblOriginal ORDER BY RANK, CAST(substr(ITEM,2) As INTEGER)"
    Cursor1=SQL1.ExecQuery(txt)