Getting data from text files

My programme puts scores in to a text file for each person. For example, one line might read:

Michael                                  10         8         9

I set up my own type in the general declarations part of my form:

Private Type PupilScores
     strPupil As String * 50 'pupils name
     strScoreE As String * 10 'number of easy q's asked
     strScoreM As String * 10 'num of medium q's asked
      strScoreH As String * 10   ' um of hard q's
End Type

I then set up the code to extract the scores for the person:

Sub Extract ()

dim PupilString as PupilScores
dim Score1 as integer

Open "file path" for input as #1
Do while not EOF(1) and PupilString.strPupil <> "Michael"
    Input #1, PupilString
    Score1 = PupilString.strScoreE
Loop

Msgbox Score1

End sub


i thought the message box should give me the score. But it gives me the name instead. How can I get this to work?

Thanks