سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي

كود :
 Dim ii As Integer = DataGridView1.Rows.Count - 1

            If Val(TextBox1.Text) = 100004441516054 Then





                DataGridView1.Rows.Add()

                DataGridView1.Rows(ii).Cells(0).Value = Val(TextBox1.Text)

                DataGridView1.Rows(ii).Cells(1).Value = "AhMed El-Qon"

                DataGridView1.Rows(ii).Cells(2).Value = "+201010759698"

                DataGridView1.Rows(ii).Cells(3).Value = "NON"

                DataGridView1.Rows(ii).Cells(4).Value = "‏‎Sidi Salim, Kafr Ash Shaykh, Egypt‎‏"

                TextBox1.Select()

            ElseIf Val(TextBox1.Text) = 100008040420441 Then

                DataGridView1.Rows.Add()

                DataGridView1.Rows(ii).Cells(0).Value = Val(TextBox1.Text)

                DataGridView1.Rows(ii).Cells(1).Value = "Hossam Ibrahim"

                DataGridView1.Rows(ii).Cells(2).Value = "+201202179000"

                DataGridView1.Rows(ii).Cells(3).Value = "hhxx61@yahoo.com"

                DataGridView1.Rows(ii).Cells(4).Value = " ‏الأقصر‏"

                TextBox1.Select()

            ElseIf TextBox1.Text = 100004441516054 & vbCrLf & 100008040420441 Then



 

                DataGridView1.Rows.Add()

                DataGridView1.Rows(ii).Cells(0).Value = Val(TextBox1.Text)

                DataGridView1.Rows(ii).Cells(1).Value = "AhMed El-Qon"

                DataGridView1.Rows(ii).Cells(2).Value = "+201010759698"

                DataGridView1.Rows(ii).Cells(3).Value = "NON"

                DataGridView1.Rows(ii).Cells(4).Value = "‏‎Sidi Salim, Kafr Ash Shaykh, Egypt‎‏"

                DataGridView1.Rows.Add()

                DataGridView1.Rows(ii + 1).Cells(0).Value = Val(TextBox1.Text)

                DataGridView1.Rows(ii + 1).Cells(1).Value = "Hossam Ibrahim"

                DataGridView1.Rows(ii + 1).Cells(2).Value = "+201202179000"

                DataGridView1.Rows(ii + 1).Cells(3).Value = "hhxx61@yahoo.com"

                DataGridView1.Rows(ii + 1).Cells(4).Value = " ‏الأقصر‏"

                TextBox1.Select()

            ElseIf TextBox1.Text = 100008040420441 & vbCrLf & 100004441516054 Then





                DataGridView1.Rows.Add()

                DataGridView1.Rows(ii).Cells(0).Value = Val(TextBox1.Text)

                DataGridView1.Rows(ii).Cells(1).Value = "AhMed El-Qon"

                DataGridView1.Rows(ii).Cells(2).Value = "+201010759698"

                DataGridView1.Rows(ii).Cells(3).Value = "NON"

                DataGridView1.Rows(ii).Cells(4).Value = "‏‎Sidi Salim, Kafr Ash Shaykh, Egypt‎‏"

                DataGridView1.Rows.Add()

                DataGridView1.Rows(ii + 1).Cells(0).Value = Val(TextBox1.Text)

                DataGridView1.Rows(ii + 1).Cells(1).Value = "Hossam Ibrahim"

                DataGridView1.Rows(ii + 1).Cells(2).Value = "+201202179000"

                DataGridView1.Rows(ii + 1).Cells(3).Value = "hhxx61@yahoo.com"

                DataGridView1.Rows(ii + 1).Cells(4).Value = " ‏الأقصر‏"

                TextBox1.Select()

            

            Else