Public Sub Sort(Tbl() As String) ' Sorts a string array in ascending order Dim Temp As String Dim i As Integer Dim MinString As String, MinStringIndex As Integer Dim MaxIndex As Integer, StartIndex As Integer, MinIndex As Integer MaxIndex = UBound(Tbl) MinIndex = LBound(Tbl) For StartIndex = MinIndex To MaxIndex - 1 MinStringIndex = StartIndex MinString = Tbl(StartIndex) For i = StartIndex + 1 To MaxIndex If StrComp(Tbl(i), MinString, 0) < 0 Then MinString = Tbl(i) MinStringIndex = i End If Next ' Put the found minimum at StartIndex ' and the string at StartIndex to MinStringIndex Temp = Tbl(StartIndex) Tbl(StartIndex) = MinString Tbl(MinStringIndex) = Temp Next End Sub