Sub BackSort(narray() As String)
    Static x As Long
    Dim y As Long, z As Long
    Dim s As String, ss As String
 
    z = UBound(narray()) - x
    s = narray(z)
    For y = z To 1 Step -1
        If narray(y - 1) > s Then
          ss = s ' ---------------------------------------------> :gripe:
          s = narray(y - 1)
          narray(y - 1) = ss
        End If
    Next
    narray(z) = s
 
    x = x + 1
    If x > UBound(narray) Then
       x = 0
       Exit Sub
    End If
 
    BackSort narray
End Sub