Ошибка!

[Max!]

У меня на форме расположен текстбокс и мне надо чтобы программа сохроняла введенный ползавателем текст , в кнопке каторая сохроняет тот текст я использовал код :
Private Sub Command1_Click()
Close #1
Open "myfile" For Output As #1
Print #1, txt1.Text
Close #1
End Sub
А в кнопке каторая загружает:
Private Sub form_load()
Close #1
Open "myfile" For Input As #1
Line Input #1, txt1.Text
Close #1
И во второй кнопке возникает ошибка "variable required - can't assign to thsis expression", и выделина строчка "Private Sub form_load()"
и в Line Input #1, txt1.Text слово "Text"! Помогите!

[Yurich]

Private Sub form_load()

Close #1 ? Нельзя закрыть файл, который еще не открывался !!!

Open "myfile" For Input As #1
Line Input #1, txt1.Text
Close #1

[Max!]

У меня компилятор выводит еще одну ошибку в коде:
Private Sub form_load()
Open "myfile" For Input As #1
Line Input #1, txt1.Text 'он выделяет последние слово Text после точки
Close #1
End Sub

[Yurich]

Голова уже болит!
Покопайся по форуму, я только-что кидал примерчик.

Юрич.

[Max!]

Я пошарил по форуму но похожая ситуаций и примеров не видел!
Yurich помоги! В первом случаи где фаил сохроняет получилось а вот где должен загружать возникает такая ошибка в коде:

Private Sub form_load()
Open "myfile" For Input As #1
Line Input #1, txt1.Text ' В этой строкчке он обводит последние слово после точки , "Text" помоги!
Close #1

[DimPos]

Попробуй так
dim Str as string. filenum as integer
filenum=freefile()
Open Path For Input As filenum
Do While Not EOF(FileNum)'выполнять пока не конец файла
Line Input #FileNum, Str ' Чтение строки в переменную
'здесь выводишь текст хранящийся в Str куда тебе надо
loop
Close filenum

[Max!]

Большое спосибо за ответ DimPos все работает!