Alphabetical sort

I think you must be going about it all wrong, because it's very simple to sort strings alphabetically by using the < and > operators. <EDIT> Yeah, just like Sybixsus said

For a simple example, try this:

a$ = "Freddy"
b$ = "Frankie"
If a$ < b$ Notify a$+", "+b$ Else Notify b$+", "+a$

...and here's a very simple sorting algorithm (don't use it for a great number of cases because it's not that fast, but for a small number, it's very easy)

Dim names$(7)
names(1) = "FREddy"
names(2) = "Fred"
names(3) = "frankie"
names(4) = "Zachary"
names(5) = "Aaron"
names(6) = "frank"
names(7) = "FRANKY"

For i = 1 To 7
	Print "names("+i+") = " + names(i)
Next

sort(7)
Print "---"

For i = 1 To 7
	Print "names("+i+") = " + names(i)
Next
WaitKey

Function sort(depth)
	If depth = 1 Then Return
	low% = 1
	For i = 2 To depth
		If Upper(names(i)) > Upper(names(low)) Then low = i
	Next
	temp$ = names(depth)
	names(depth) = names(low)
	names(low) = temp
	sort(depth - 1)
End Function