Scan value in Textbox and typing exists or not

I have Textbox1.Lines

1
4
11
3
1
2
5
5
4
2

i want to scan each line separately (it will only contain a digit type 1 or 12 or 100)

i want to scan in all lines of textbox2 (containing a comma-separated string (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, 17,18,19,20) if there is a number in the lines then textbox3 will be reset with 0, if it does not exist then +1 will be added what i try i dind't work

  Try
            For j = 0 To TextBox2.Text - 1
                Dim intersectionList As New List(Of String)()
                For i As Integer = 1 To 10
                    Dim firstBoxList = TextBox2.Lines(i).Split(",")
                    Dim secondBoxList = TextBox1.Lines(j + 1).Split(" ")
                    intersectionList.Add(String.Join(",", secondBoxList.Intersect(firstBoxList)))
                Next
                TxtMReadOnly.Text = String.Join(Environment.NewLine, intersectionList)
                LastDraw()
                TxtMReadOnly.Clear()
            Next
        Catch ex As Exception
        End Try

 Private Sub LastDraw()
        Dim lastDraw1 As Integer = 0    '1/10
        Dim StartIndex = TxtMReadOnly.Lines.Length - 1
        For i = StartIndex To 0 Step -1
            If String.IsNullOrEmpty(TxtMReadOnly.Lines(i)) Then
                lastDraw1 += 1
            Else
                Dim lineVals As String() = TxtMReadOnly.Lines(i).Split(",")
                Select Case lineVals.Count()
                    Case 1
                        lastDraw1 = 0
                End Select
            End If
        Next
        TextBox3.Text &= Environment.NewLine & lastDraw1
End Sub

what should i do work?