帮我改改这VB题 - VB / 基础类

帮我改改 我总觉得有问题
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
 xpath = App.Path & "\ku\score.txt"
 Open xpath For Random As #1 Len = Len(personl)
 personl.number = Val(Text1.Text)
 personl.score = Val(Text2.Text)
 personl.name = Text3.Text
 Put #1, Val(Text4.Text), personl
 i = i + 1
 Close #1
 MsgBox "学生信息已写入！", vbInformation
 Label1.Caption = "总记录数：" + i
 Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""
 Text4.Text = ""
End Sub
Private Sub Command2_Click()
 xpath = App.Path & "\ku\score.txt"
 Open xpath For Random As #1 Len = Len(personl)
  Get #1, Val(Text4.Text), personl
  Text1.Text = personl.number
  Text2.Text = personl.score
  Text3.Text = personl.name
End Sub

---

哪里有问题？
别考人！

---

VB code:

Private Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
xp