Go4Expert - how to add the first element of first array of every record

hi friendz....

I wanted to add the first element of first array of every record.
Each record has two arrays,
Each array has 5 values
In order to do that i wrote the following code in VB...

Code:

Option Explicit



Private Type feedbackdata



        FormNumberS As Integer

        Q1(0 To 4) As Byte

        Q2(0 To 4) As Byte

        FormNumberE As Integer

        

End Type

                                                                                                                        

Private Sub cmdDisplay_Click()



Dim category(1 To 5) As String * 10

Dim quantity(1 To 5) As Integer



category(1) = "very poor"

category(2) = "poor"

category(3) = "good"

category(4) = "very good"

category(5) = "excellent"



Dim feedback As feedbackdata



Dim recordnum, n As Integer, a As Integer



If (Option1.Value) Then

a = 0

Open "C:/student.txt" For Random As #1 Len = Len(feedback)



For recordnum = 1 To Int(LOF(1) / Len(feedback))

Get #1, recordnum, Q1(0)

quantity(1) = Q1(0) + a

a = quantity(1)



Next recordnum





Open "C:/analysis.txt" For Append As #2



Print #2, category(1), quantity(1)



End If

I dont know why my code isnt working correctly,,,i mean its displaying the wrong sum in my "analysis.txt" file....Could you please help