کار با فایل ها

[soonami]

سلام دوستان مشکل این کد چی هست دگمه اول درست کار میکند ولی دومین دگمه زمانی که میخواهم فیلد ها رو بخوانم و میانگین نمره هار رو بدست بیارم و در یک فایل دیگه بریزم به مشکل می خورم



Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As String
Dim f As String
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim b As Integer
b = FreeFile()
FileOpen(b, "C:\s.txt", OpenMode.Append)
For i = 1 To 2
n = InputBox("en name")
f = InputBox("en family")
n1 = InputBox("en no 1")
n2 = InputBox("en no 2")
n3 = InputBox("en no 3")
Write(b, n, f, n1, n2, n3)
Next
FileClose(b)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim n As String
Dim f As String
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim b As Integer
Dim av As Integer
b = FreeFile()
FileOpen(b, "c:\s.txt", OpenMode.Input)
FileOpen(3, "c:\ss.txt", OpenMode.Append)
For i = 1 To 2
Input(b, n, f, n1, n2, n3)
av = (n1 + n2 + n3) / 3
Write(3, n, f, av)
Label1.Text = av
Next
FileClose(3)
FileClose(b)
End Sub
End Class

[soonami]

کسی نیست جواب سوال من رو بده