OK, I'm a vba newbie, but a master of cut and paste. :D  I'm trying to
sort the items in a listbox on a form.  The listbox items are pulled
from part of a large text file, and change based on a combobox
selection.  I have everything working fine except the alphabetical
sort. The code works just fine if you know the number of elements in
the array. But since the number of elements I'm dealing with changes,
the number of elements in the array is unknown.

Here is the code that I found somewhere on the internet for doing the
sort - the author has the first function generate a random list to be
sorted to demonstrate how it works. Any ideas on how to adapt for
unknown elements?

Thanks for your help in advance!

Jay

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Frederik Aerts                                                   '
' http://users.skynet.be/am044448/Programmeren/                    '
'                                                                  '
' The items in the listbox are the same as the items in "MyArray". '
' When "Sort ListBox" is clicked, "MyArray" is sorted and is used  '
' to refill the listbox.                                           '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit
Option Base 1

Private Const ArrTop As Integer = 1000
Private MyArray(ArrTop) As String

Private Sub cbRandomList_Click()

 Dim i As Integer
 Dim j As Byte
 Dim strItem As String

 'clear listbox
 ListBox1.Clear

 For i = 1 To ArrTop
   strItem = ""
   For j = 1 To 10
     Randomize
     strItem = strItem & Chr(Int((26 * Rnd) + 65))
   Next j
   'fill array
   MyArray(i) = strItem
   'fill listbox
   ListBox1.AddItem strItem
 Next i

End Sub

Private Sub cbSort_Click()

 Dim i As Long

 'no unnecessary sorting
 If ListBox1.ListCount <= 1 Then Exit Sub
 'sort array (quick sort algorithm)
 QuickSort MyArray, LBound(MyArray), UBound(MyArray)
 'clear listbox
 ListBox1.Clear
 'use sorted array to refill listbox
 For i = 1 To UBound(MyArray)
   ListBox1.AddItem MyArray(i)
 Next i

End Sub

Private Sub QuickSort(strArray() As String, intBottom As Integer,
intTop As Integer)

 Dim strPivot As String, strTemp As String
 Dim intBottomTemp As Integer, intTopTemp As Integer

 intBottomTemp = intBottom
 intTopTemp = intTop

 strPivot = strArray((intBottom + intTop) \ 2)

 While (intBottomTemp <= intTopTemp)

   While (strArray(intBottomTemp) < strPivot And intBottomTemp <
intTop)
     intBottomTemp = intBottomTemp + 1
   Wend

   While (strPivot < strArray(intTopTemp) And intTopTemp > intBottom)
     intTopTemp = intTopTemp - 1
   Wend

   If intBottomTemp < intTopTemp Then
     strTemp = strArray(intBottomTemp)
     strArray(intBottomTemp) = strArray(intTopTemp)
     strArray(intTopTemp) = strTemp
   End If

   If intBottomTemp <= intTopTemp Then
     intBottomTemp = intBottomTemp + 1
     intTopTemp = intTopTemp - 1
   End If

 Wend

 'the function calls itself until everything is in good order
 If (intBottom < intTopTemp) Then QuickSort strArray, intBottom,
intTopTemp
 If (intBottomTemp < intTop) Then QuickSort strArray, intBottomTemp,
intTop

End Sub