ocr: Private Sub Form Click() Dim FileData, Msg, NI As String - - Nl lE Chr(10) nepeson CTPOKM Open "TestFile" For Output As #1 PDSH 'OTKDBITE pann IIA BblBona u 18 Print #1, "3T0 Tec oneparopa BuBona Print #. - Print #1, euars nycroM cmpOKM. Print #1, "BoHa E "30Ha 2" Ileuarb B abe DMKCHPOBAHHHE 30HLI. Print, #1, "HocmenoBarenh.Has nevath 6e3 npobena"; : Close #1 Baxpsirb pavn Open "TestFile" For Input As #1 - 1 AR OTKPHTE paur IIA BBona B4 0E Do While Not EOF(1) Line Input #1, FileData 'BBOn 3anucu Msg : - Msg & FileData - & NI popMupoBaHMe CTPOKM coooueHns - a Loop Close #1 '3akpbiTb pann MsgBox ...
