vb游戏记录分数求解老是打不出来人名

这是form1中的部分代码
xm = InputBox("请输入玩家姓名", "游戏结束", "玩家一")
Form2.Show
Open App.Path & "\1.txt" For Append As #1
Print #1, xm, c
Close #1
form2中的
Private Sub Form_load()
Print "c"
Dim wanjia() As chengji, s As Integer, q As Integer
Dim dat As String
Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1)
q = q + 1
Line Input #1, dat
Loop
Close #1
Open App.Path & "\1.txt" For Input As #1
ReDim wanjia(q) As chengji
For s = 1 To q - 1
Input #1, wanjia(s).c, wanjia(s).xm
Next s
Close #1
End Sub