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

Здравствуйте! помогите пожалуйста!
Пытаюсь загрузить одну строку в массив из текстового документа (или 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. Простите за тупость, я только учусь програмированию