How to incorporate in a structured way in a file ?

From SamF
Pl Help

Some how i could not submit thru new thread


Dim products(1 To 2, 1 To 2, 1 To 2) As String
Dim Features(1 To 3, 1 To 3, 1 To 3) As String
Dim subpro(1 To 3, 1 To 3, 1 To 3) As String

Private Sub Form_Load()
'products(1, 1, 1) = "0101 - Wardcare bed fixed Ht."
' Features(1, 1, 1) = "3 Vertical Tubular Bow panels."
' subpro(1, 1, 1) = "rod size 5/8"
' subpro(1, 1, 2) = "Big rod size 1 1/4"
' subpro(1, 1, 3) = "1080 H Head side"
' Features(1, 1, 2) = "Plain Top"
' subpro(1, 2, 1) = "Plain Top-6 ft 3 ft"
' subpro(1, 2, 2) = "Plain Top-8 perfo."
' subpro(1, 2, 3) = "Plain Top-no dents"
' Features(1, 1, 3) = "Sturdy"
' subpro(1, 3, 1) = "Sturdy-A"
' subpro(1, 3, 2) = "Sturdy-B"
' subpro(1, 3, 3) = "Sturdy-C"

'products(2, 1, 1) = "0504"
'Features(2, 1, 1) = "4 Sections"
' subpro(2, 1, 1) = "Backrest"
' subpro(2, 1, 2) = "Buttocks"
' subpro(2, 1, 3) = "Kneerest"
'Features(2, 1, 2) = "Ht. Adjustable"
' subpro(2, 2, 1) = "On Canti lever"
' subpro(2, 2, 2) = "24 to 30 inches"
' subpro(2, 2, 3) = "Very smooth"
'Features(2, 1, 3) = "C. Chair Positions"

One can see that i've created 2 files

Contents in Pro.dat-------------
"0101 - Wardcare bed fixed Ht."
"0504"

Open "C:\mstr\Pro.dat" For Input As 1
i% = 1
For i% = 1 To UBound(products, 1)
Input #1, products(i%, 1, 1)
List1.AddItem products(i%, 1, 1)
Next i%
Close #1

End sub


Contents in Feat.dat-------------
"3 Vertical Tubular Bow panels.","Plain Top", "Sturdy"
"4 Sections","Ht. Adjustable", "C. Chair Positions"

I WOULD LIKE TO WRITE THE STRUCTURE OF FEAT.DAT
as per the above contents

'IF YOU SEE THE ABOVE in declarations
' FOR EG Features(1, 1, 1) = "3 Vertical Tubular Bow panels."
' Features(1, 1, 2) = "Plain Top"
' Features(1, 1, 3) = "Sturdy"

Private Sub List1_Click()
List2.Clear
List3.Clear
p% = 1


For f% = 1 To UBound(products, 1)
For p% = 1 To UBound(Features, 1)
List2.AddItem Features(List1.ListIndex + 1, f%, p%)
Next p%
Next f%
' using the above file Feat.dat
How can i incorporate in the above For... Next Loop
using the appropriate structure of the file
PL mention in the bold
End Sub