1414

Private Sub Command1_Click()
Dim mw(15 To 70) As Single
Dim fw(15 To 70) As Single
Open "c:/eli/data14.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4
age = Int(a1)
mw(age) = a2
fw(age) = a3
Loop
Close #2

Open "c:/eli/14.txt " For Output As #4
For age = 15 To 69
Write #4, age, mw(age), fw(age)
Next
Close #4

End Sub