что должно делать открыть файл, взять число, использовать функцию, и записать в файл
эта падла пишет 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