'===================ABV PROJECT====================== '===================MODULE 1 ======================= Sub main () 'you can edit this macro to execute any command when loading this workbook 'next line call the routine that fill the sheet call absmain () call testio() End Sub Sub testio () Open "file1.txt" For Output as #1 write #1, "this is working!", "nice isn't it?" Close #1 Open "file1.txt" For Input as #1 input #1 , a, b Close #1 Cells(1,2).value = a Cells(2,2).value = b Open "file2.txt" For Output As #2 print #2 , SPC(3) ; "separator = 3 spaces:",10,20 Close #2 Open "file2.txt" For Append As #2 print #2 , TAB(2) ; "separator = 2 tabulations:",10,20 Close #2 End Sub Sub absmain () 'Do not edit this macro, changes will not be saved with the workbook!!! End Sub