Something like this, the table is pre-made, with two fields.
Sub ReadText()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Dim ctrLine As Integer, CtrDiv As Integer...