Сортировка в vba

[svadimv7]

Доброе время суток!
Вопрос - что я делаю не так?
А задача такая:
Средствами vba открыть текстовый файл (структура табличный вариант), проверить принадлежность кодовой страницы, отсортировать 1-ый столбец методом вставки по неубыванию, вывести отсортированные значения на рабочий лист Excel и в файл на диске.
У меня стопор на сортировке с выводом
Вот код.

Attribute VB_Name = "Main"

Type СтрЗнач
    Поле() As String 
End Type

Sub Таблица()
Dim TMP As String
Dim ВспМассив() As Integer
Dim Cимвол As String
Dim Cтрока As String
Dim ДлСтроки As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim КолСтрок As Integer
Dim Массив() As СтрЗнач
Dim КрСорт As Integer
Dim WSh As String
Dim InFile As String
Dim OutFile As String
Dim count_cp866 As Integer
Dim count_cp1251 As Integer

WSh = "Общий"
InFile = "d:\alg\КР_АльниАльнико.txt"
OutFile = "d:\alg\КР_АльниАльнико_out.txt"

Worksheets(WSh).Select
Open InFile For Input As #1
Open OutFile For Output As #2
КрСорт = Cells(1, 1) + 1
'чтение файла; определение кодировки заполнение массива
КолСтрок = 0
Do While Not EOF(1)
    Line Input #1, Cтрока
    If Len(Cтрока) > 0 Then
        КолСтрок = КолСтрок + 1
        If КолСтрок = 1 Then ОпрКод Cтрока, count_cp866, count_cp1251
        'Перекодировка строки cp866 -> cp1251 если требуется
        If count_cp866 > count_cp1251 Then str866to1251 Cтрока
        ReDim Preserve Массив(КолСтрок)
        'поиск символа табуляции и заполнение массива данными
        Ввод Cтрока, Массив(КолСтрок), WSh
    End If
    'ReDim Preserve Массив(КолСтрок)
Loop

'Заполнение вспомогательного массива
ReDim ВспМассив(КолСтрок)
For i = 1 To КолСтрок
    ВспМассив(i) = i
Next i

'сортировка массива методом простой вставки по неубыванию
'Sub Сортировка(Массив() As СтрЗнач, КрСорт As Integer, ВспМассив() As Integer, КолСтрок As Integer)
Call Сортировка(Массив(), ВспМассив(), КолСтрок)

'Вывод в таблицу Excel и текстовый файл
For i = 1 To КолСтрок
    Вывод Массив(ВспМассив(i)), i, WSh
Next i
Close #1, #2
End Sub
Attribute VB_Name = "Конвертирование"
Sub ОпрКод(Строка As String, count_cp866 As Integer, count_cp1251 As Integer)
Dim ДлСтроки As Integer
Dim КодСимвола As Integer
ДлСтроки = Len(Строка)
For i = 1 To ДлСтроки
    КодСимвола = Asc(Mid(Строка, i, 1))
    If ((КодСимвола > 128) And (КодСимвола < 168)) Or ((КодСимвола > 168) And (КодСимвола < 175)) Then count_cp866 = count_cp866 + 1
    If ((КодСимвола > 191) And (КодСимвола < 224)) Or ((КодСимвола > 241) And (КодСимвола < 256)) Or (КодСимвола = 184) Then count_cp1251 = count_cp1251 + 1
Next i
End Sub
Sub sym866to1251(Cимвол As String)
'Процедура конвертирования символа cp866 -> cp1251
Dim КодСимвола As Integer
КодСимвола = Asc(Cимвол)
'Проверка соответствия символа диапазону русских букв в cp866
Select Case КодСимвола
    Case 128 To 175: КодСимвола = КодСимвола + 64
    Case 224 To 239: КодСимвола = КодСимвола + 16
    Case 240: КодСимвола = 168
    Case 241: КодСимвола = 184
End Select
Cимвол = Chr(КодСимвола)
End Sub

Sub str866to1251(Строка As String)
'Процедура конвертирования строки cp866 -> cp1251
Dim КодСимвола As Integer
Dim i As Integer
Dim ДлСтроки As Integer
Dim Cимвол As String
ДлСтроки = Len(Строка)
For i = 1 To ДлСтроки
    Cимвол = Mid(Строка, i, 1)
    sym866to1251 Cимвол
    Строка = Left(Строка, i - 1) + Cимвол + Right(Строка, ДлСтроки - i)
Next i
End Sub
Attribute VB_Name = "Обмен"
Sub Ввод(Cтрока As String, Mas As СтрЗнач, WSh As String)
'Разделение строки на составляющие поля
Dim Символ As String
Dim ДлСтроки As Integer
Dim КодСимвола As Integer
Dim i As Integer
Dim Ind As Integer
Dim Слово As String

Worksheets(WSh).Select
ДлСтроки = Len(Cтрока)
Ind = 1
For i = 1 To ДлСтроки
    Символ = Mid(Cтрока, i, 1)
    КодСимвола = Asc(Символ)
    If КодСимвола = 9 Then
        ReDim Preserve Mas.Поле(Ind + 1)
        Mas.Поле(Ind) = Слово
        Ind = Ind + 1
        Слово = ""
        Else: Слово = Слово + Символ
    End If
ReDim Preserve Mas.Поле(Ind)
Mas.Поле(Ind) = Слово
Next i
End Sub
Sub Вывод(Mas As СтрЗнач, Ind As Integer, WSh As String)
Dim Строка As String
Dim k As Integer
Worksheets(WSh).Select
k = UBound(Mas.Поле)
Строка = ""
For i = 1 To k
    If (Ind > 2) And (i > 1) Then Cells(Ind + 1, i + 1) = CSng(Mas.Поле(i)) Else Cells(Ind + 1, i + 1) = Mas.Поле(i)
        Cтрока = Cтрока + Mas.Поле(i)
    If (i < k) And (i > 1) Then Cтрока = Cтрока + Chr(9)
Next i
Write #2, Cтрока

End Sub
Attribute VB_Name = "Сорт"
Sub Сортировка(Массив() As СтрЗнач, ВспМассив() As Integer, КолСтрок As Integer)
Worksheets("Общий").Select
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim TMP As Integer
For i = 2 To КолСтрок
    For j = 3 To i - 1
        If CSng(Массив(ВспМассив(j)).Поле(КрСорт)) > CSng(Массив(ВспМассив(i)).Поле(КрСорт)) Then
            TMP = ВспМассив(i)
            For k = i To j Step -1
                ВспМассив(k) = ВспМассив(k - 1)
            Next k
            ВспМассив(j) = TMP
        End If
    Next j
Next i
End Sub

Спасибо!!

@темы: Basic, Алгоритм