VBA помогите понять ошибку Опции

[goad]

здрасти всем, помогите понять ошибку, что не правильно
что должно делать открыть файл, взять число, использовать функцию, и записать в файл
эта падла пишет 55 ошибку постоянно, я не понимаю чего он ещё хочет?

Код

Private Sub a1()
Dim a As Single
Dim S As Single
Open "D:\s.txt" For Input As #1
Input #1, a
S = a * a
Close #1
Open "D:\otvet.txt" For Output As #2
Write #2, S
Close #2
End Sub