How do I create an Alpha Numeric Memberlist?

Our MetaData for Custom2 Members are Alpha Numeric.

The below code only sorts the Memberlist in Alphabetical order but ignores the Numeric Values.

How do I get it so sort Numerical as well?

'********************************************************************

'Sort routine to sort member lists

'********************************************************************

 

Sub Sort(aMyArray(), sSortOrder)

 

    Dim i, j, Low, Hi

    Dim sTemp, sSwapped

    Dim bSortDescending

 

    If UCase(Left(sSortOrder, 1)) = "D" Then

        bSortDescending = True

    Else

        bSortDescending = False

    End If

 

    Low = LBound(aMyArray)

    Hi = UBound(aMyArray)

    j = (Hi - Low + 1) \ 2

    Do While j > 0

        For i = Low To Hi - j

            If (aMyArray(i) < aMyArray(i + j) And bSortDescending) Or _

             (aMyArray(i) > aMyArray(i + j) And Not bSortDescending) Then