想要将文本框中的行添加到列表框中（如果其中包含单词中的单词）

Question

如果它包含单词中的单词，我想将文本框中的行添加到列表框中。

此代码将我的结果引入到文本框中，我希望在文本框行或列表框行中使用它。

因此，TempTextBox必须是文本框行或列表框行，这样我就不会创建太多文本框。我该如何改善代码？

If TextBox1.Lines(i).Contains(word) Then
    found = True
    Dim tempTextBox As TextBox = CType(Me.Controls("CheckVar" & i.ToString), TextBox)
    On Error Resume Next
    If TextBox2.Lines(i).Contains(word) Then
        If tempTextBox.Text.Contains(word) Then
        Else
            tempTextBox.Text = tempTextBox.Text + " " + TxtbValAfterCompar.Text()
        End If
    Else
    End If
End If