\'сразу предупреждаю - оптимизировать не буду\'не поверят, что сам делалPublic Function test2(inpStr As String) As String    Dim i As Long           \'счётчик    Dim l As Long           \'длина строки    Dim outStr As String    \'выходная строка    Dim sChar As String     \'заменяемый символ    Dim сChar As String     \'текущий символ    Dim sNum As Long        \'начало строки    l = Len(inpStr)    If l = 0 Then Exit Function    sChar = ""    For i = 1 To l        сChar = Mid(inpStr, i, 1)                If sChar = "" And сChar <> Space(1) Then        \'начало слова            sChar = сChar            sNum = i        End If        If сChar = Space(1) Then        \'обнаружен пробел            sChar = ""        End If        If sNum = i Or sChar <> сChar Then            outStr = outStr & сChar        End If    Next    test2 = outStrEnd Function

Public Function TestSort()    Dim a(1 To 5)    Dim l(1 To 5) As Long    a(1) = "aaa"    \'a(2) = "ccc"    a(3) = "eee"    \'a(4) = "ddd"    a(5) = "bbb"        Call InsertSort(a(), l(), 1, 5)    For i = 1 To 5        Debug.Print a(i)    NextEnd Function\'InsertSort - сортировка вставкой\'a As Variant - сортируемый массив\'l() As Long - вспомогательный массив,\'   имеющий те же вернюю и нижнюю границы,\'   что и сортируемый\'Lb As Long - нижняя граница\'Ub As Long - верхняя границаPublic Sub InsertSort(a As Variant, l() As Long, ByVal Lb As Long, ByVal Ub As Long)    Dim t As Variant    Dim i As Long    Dim j As Long        \'строим индекс для пропуска пустых значений    For i = Lb To Ub        If IsEmpty(a(i)) = False Then            j = j + 1            l(j) = i        End If    Next    Ub = j        \' сортировка A[Lb..Ub]    For i = Lb + 1 To Ub        t = a(l(i))        \' поиск места для вставки        For j = i - 1 To Lb Step -1                If a(l(j)) >= t Then Exit For \'сортировка по убыванию                \'If a(l(j)) <= t Then Exit For \'соритровка по возрастанию                a(l(j + 1)) = a(l(j))        Next j        \' вставка        a(l(j + 1)) = t    Next iEnd Sub