[مخالف]ما هي التغييرات التي يجب ان أجريها على الكود

السلام عليكم و رحمة الله و بركاته،،

إذا كان هذا كود البرنامج:

If TextBox2.Text.Contains(TextBox1.Text) Then

MessageBox.Show("Intermediate sensitive words has been found")

MessageBox.Show(TextBox1.Text)

End If

If TextBox2.Text.Contains(TextBox3.Text) Then

MessageBox.Show("Very sensitive words has been found")

MessageBox.Show(TextBox3.Text)

End If

MessageBox.Show("There are no more highly sensitive words")

End Sub

ماهي التغييرات التي يجب أن أقوم بها كي أقرأ من جداول (نوعها أكسس أو إكسل) بدلا من Textbox1 and textbox3