Как загрузить одну строку в массив из текстового документа (или textbox) - VB

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

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

Решение задачи: «Как загрузить одну строку в массив из текстового документа (или textbox)»

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

                            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)
                        