اين الخطأ في الكود لو سمحتم - نسخة قابلة للطباعة

كود :
   Dim File1, name1, number1, bsalary, a, B, n As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        File1 = Application.StartupPath & "\Asem.txt"

    End Sub

    Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click

        If File1 = "" Then

            MsgBox("الرجاء تحديدالملف المطلوب أولا", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")

        Else

            FileOpen(1, File1, OpenMode.Append)

            WriteLine(1, TextBox1.Text)

            WriteLine(1, TextBox2.Text)

            WriteLine(1, TextBox3.Text)

            WriteLine(1, TextBox4.Text)

            WriteLine(1, TextBox5.Text)

            WriteLine(1, TextBox6.Text)

            FileClose(1)

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""

            TextBox5.Text = ""

            TextBox6.Text = ""

        End If

    End Sub

    Private Sub BtnSearch_Click(sender As Object, e As EventArgs) Handles BtnSearch.Click

        Dim msg As String

        If TextBox2.Text = "" Then

            MsgBox("الرجاء إدخال الإسم في حقل الإسمَ", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")

        Else

            msg = TextBox2.Text

            If File1 = "" Then

                MsgBox("الرجاء تحديد المحافظة أو البلد المطلوب أولا", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")

            Else

                FileOpen(1, File1, OpenMode.Input)

                Do While Not EOF(1)

                    Input(1, name1) : Input(1, number1) : Input(1, bsalary) : Input(1, a) : Input(1, B) : Input(1, n)

                    If msg = number1 Then

                        TextBox1.Text = name1

                        TextBox2.Text = number1

                        TextBox3.Text = bsalary

                        TextBox4.Text = a

                        TextBox5.Text = B

                        TextBox6.Text = n

                    End If

                Loop

                FileClose(1)

            End If

        End If

    End Sub