Private Sub Command1_Click()
Open "/dark.dat" For Output As #1
Print #1, txtDark(0).Text
Print #1, txtDark(1).Text
Print #1, txtDark(2).Text
Print #1, txtDark(3).Text
Print #1, txtDark(4).Text
Print #1, txtDark(5).Text
Print #1, txtDark(6).Text
Print #1, txtDark(7).Text
Print #1, txtDark(8).Text
Print #1, txtDark(9).Text
Print #1, txtDark(10).Text
Print #1, txtDark(11).Text
Print #1, txtDark(12).Text
Print #1, txtDark(13).Text
Print #1, txtDark(14).Text
Close #1
End Sub