Программа не запускается выдает ошибку - VB

Формулировка задачи:

программа не запускается выдает ошибку Цель программы В текстовом файле несколько строк, каждая из которых содержит одно слово с одинаковым для всех количеством букв. Написать программу, которая считывает эти слова и сортирует в порядке убывания суммы ASCII-кодов составляющих их букв. На экран выводится список этих слов с указанием соответствующих им сумм кодов. Сама программа вот:

Private Sub Command1_Click() 
Dim sum(100) As Integer 
Dim sum(100) As String 
Open "C:/..........txt" For Input As 1 
i = 0 
Do Until EOF(1) 
i = i + 1 
kk = i 
Input#1.Mas(i) 
Loop 
Close (1) 
For i = 1 To kk 
t = i 
For j = 1 To Len(Mas(t)) 
c = Mid(Mas(t), j, 1) 
sum(t) = sum(t) + Asc(c) 
Next j 
Next i 
Max = 0 
For i = 1 To kk 
If sum(i) > Max Then 
Max = sum(i) 
x = i 
End If 
Next i 
Text.Text = kk 
Open C:/....txt for outputas#2 
For i = 1 To kk 
Min = Max 
For j = 1 To kk 
If sum(j) < Min Then 
Min = sum(j) 
t = j 
End If 
Next j 
If sum(t) <> Max Then 
List1.AddItem Mas(t) & "" & sum(t) 
Print #2, Mas(t) 
sum(t) = Max 
End If 
Next i 
Print #2, Mas(x) 
Close 
List1.AddItem Mas(x) & "" & sum(x) 
End Sub

Решение задачи: «Программа не запускается выдает ошибку»

textual
                            Листинг программы 
                        

                            Dim MyString, MyNumber
Open "TESTFILE" For Input As #1 ' Открывает файл для чтения.
Do While Not EOF(1) ' Цикл до конца файла.
    Input #1, MyString, MyNumber    ' Читает данные в две переменные.
    Debug.Print MyString, MyNumber  ' Выводит данные в окно отладки.
Loop
Close #1    ' Закрывает файл.
                        