Посимвольное считывание из файла - VB

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

Суть задачи в следующем: В одном файле имеется 5 целых чисел, в другой файл нужно записать сумму квадратов этих чисел. Как организовать посимвольное считывание из первого файла?

Решение задачи: «Посимвольное считывание из файла»

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

                            Private Sub Form_Load()
    Dim fNum As Integer, _
        FileIn As String, FileOut As String
    Dim Txt As String, Value As Long, Sum As Long
    FileIn = "D:\Test.txt"
    FileOut = "D:\TestOut.txt"
    fNum = FreeFile
    Open FileIn For Input As fNum
    Do Until EOF(fNum)
        Line Input #fNum, Txt
        Value = Val(Txt)
        Sum = Sum + Value * Value
    Loop
    Close fNum
    Open FileOut For Output As fNum
    Print #fNum, Sum
    Close fNum
End Sub
                        