Sub BackSort(narray() As String)
    Dim n As Long, y As Long
    Dim ss As String
 
    n = UBound(narray)
    Do
      For y = n To 1 Step -1
        If narray(y - 1) > narray(n) Then
          ss = narray(n)
          narray(n) = narray(y - 1)
          narray(y - 1) = ss
        End If
      Next
      n = n - 1
    Loop While n > 0
End Sub