Текстовый файл как текстовое поле содержит в VB.NET

---

Привет... Во-первых, извините за мой плохой английский, надеюсь, вы поймете, что я скажу, и я очень новичок в этом деле. vb.net

Я создам простое приложение для блокировки порно с помощью vb.net для моего школьного проекта. Но у меня есть проблема, когда я создаю простой порно словарь в текстовом файле / блокноте. Этот код у меня есть, но в этом коде я буду создавать порно названия одно за другим в vb.net код, в котором этот метод не эффективен для моего приложения. Я буду порно имя или порно категории имя в одном файле (. txt файл). Кто-нибудь может мне помочь, пожалуйста ?

Спасибо и раньше...

Что я уже пробовал:

Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
        ListBox1.Items.Add(TextBox3.Text)

        If TextBox3.Text.Contains("sex") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("hardsextube") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("tube8") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("keandra") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("redtube") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("youjizz") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("spankwire") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("pornhub") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("fakku") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("xhamster") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("xvideos") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("asian sex") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Asian sex") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("asian xxx") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Asian xxx") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("anal") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Anal") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("abuse") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Abuse") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Blonde") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("blonde") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Blowjob") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("blowjob") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Bukkake") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("bukkake") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("brunete") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Brunete") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("creampie") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Creampie") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("cumshot") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Cumshot") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("gangbang") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Gangbang") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Gang Bang") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("gang bang") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Gay") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("gay") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("hentai") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("interracial") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Intterracial") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("japanese sex") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("japan sex") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Japanese sex") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("Japan sex") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("seks") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("porn") Then
            Tobat.ShowDialog()
            killer()

        ElseIf TextBox3.Text.Contains("teen xxx") Then
            Tobat.ShowDialog()
            killer()

        End If
    End Sub

---