Sub Sort(astrNames() As String)    ' Сортировка массива строк по алфавиту (в порядке возрастания)

    Dim i As Integer, j As Integer

    Dim strBuffer As String, fBuffer As Boolean

    For i = LBound(astrNames) To UBound(astrNames) - 1

        For j = i + 1 To UBound(astrNames)

            If astrNames(i) > astrNames(j) Then    ' Меняем i-й и j-й элементы массива местами

                strBuffer = astrNames(i): astrNames(i) = astrNames(j): astrNames(j) = strBuffer

            End If

        Next j

    Next i

End Sub