Sub test() Open "C:\test1.txt" For Output As #1 For i = 1 To 10 mynum = CStr(i) Write #1, mymun Print #1, mymun Write #1, "1,2""X" Print #1, "1,2""X" Next Close #1 End Sub
Sub test() Open "C:\test1.txt" For Output As #1 For i = 1 To 10 mynum = CStr(i) Write #1, mymun Print #1, mymun Write #1, "1,2""X" Print #1, "1,2""X" Next Close #1 End Sub