Monta un ListBox en el formulario, al que definirás la propiedad Sorted a True.
En el Form_Load pones
Dim N As Integer
For N = 0 To Len(Vector) - 1
List1.AddItem Vector(N)
Next
Ahora verás que puedes tratar los elementos (List1.List) en perfecto orden. Si no te interesa ver el ListBox, puedes ponerle List1.Visible = False.
Y respecto a la comparación, es perfecta la fórmula de
For N = 0 To Len(Vector) - 1
If UCase(Vector(N)) = "ALEXIS" Then Exit For
Next |