[решено] помогите загрузить строку в массив из файла (или textbox)

[viabcua]

Здравствуйте! помогите пожалуйста!
Пытаюсь загрузить одну строку в массив из текстового документа (или textbox). И вылетают ошибки типа "несответствие типов", "нижний индекс вне диапазона.....

так все работает

Dim UserOtvet As Variant
Dim Otvet As Variant

UserOtvet = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

Otvet = Array(2, 0, 4, 4, 1, 0, 0, 1, 1, 3)


а так нет

Dim UserOtvet As Variant
Dim Otvet As Variant
Dim f As Variant

UserOtvet = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

f = FreeFile
Open "1.txt" For Input As #f
otvet = Split(Input(LOF(f), #f), ",")
Close #f


содержимое 1.txt

2, 0, 4, 4, 1, 0, 0, 1, 1, 3

Или может у кого есть код для загрузки строки в массив.

Заранее благодарен!

P.S. Простите за тупость, я только учусь програмированию

[viabcua]

Dim UserOtvet As Variant
Dim Otvet() As Long, i As Long
Dim f As Variant

UserOtvet = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

f = FreeFile
Open "c:\1.txt" For Input As #f
ReDim Otvet(0 To LOF(f) \ 2) 'размер с запасом
Do Until EOF(f)
Input #f, Otvet(i)
i = i + 1
Loop
Close #f
ReDim Preserve Otvet(i - 1)