Ошибка считывания из файла - VB

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

Столкнулся с ошибкой чтения в переменную. Нажимаю на кнопочку "insetsave" - сохранение переменной происходит успешно(значение в txt файле отображается). Но вот когда нажимаю на "insetloadgame", компилятор выдаёт мне ошибку - "variable required - can't assign to this expression" и выделяет:

Private Sub insetloadgame_Click()
Open App.Path & "\save.txt" For Input As #1 
Input #1, Ingame.car ' <---
Close #1

"ingame.car" - здесь ingame - имя формы, car - имя переменной типа - string. Вот код программы:

Private Sub insetsave_Click()
Open App.Path & "\save.txt" For Output As #1 
Write #1, Ingame.car
Close #1 
End Sub
 
Private Sub insetloadgame_Click()
Open App.Path & "\save.txt" For Input As #1 
Input #1, Ingame.car 
Close #1 
End Sub

Не знаю что и делать... Может есть у кого мысли, в чём здесь дело?

Решение задачи: «Ошибка считывания из файла»

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

                            Private SUB insetsave_Click()
car = "123drgs"
Open App.Path & "\save.txt" For Output As #1
Write #1, car
Close #1
END SUB
 
Private SUB insetloadgame_Click()
If Dir(App.Path & "\save.txt") <> "" Then
Open App.Path & "\save.txt" For Input As #1
Input #1, car
Close #1
Print car
Else
MsgBox "Not"
End If
                        