Hi all, I needed a way to filter bad words entered in a textbox.

This is what I came up with.

Code:
Code:
Dim WordArray As New ArrayList
    Public ReplaceString As String = "*****"

    Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)

        'Put your bad words in this array.
        WordArray.Clear()
        WordArray.Add("BadWord1")
        WordArray.Add("BadWord2")
        WordArray.Add("BadWord3")

    End Sub

    Private Sub btnFilter_Click(sender As Object, e As RoutedEventArgs) Handles btnFilter.Click
        Try

            Dim CheckText As String = tbSource.Text
            Dim words As String() = CheckText.Split(New Char() {" "c})

            For Each Word In WordArray

                For Each W In words

                    If W.ToLower.Contains(Word) = True Then
                        CheckText = CheckText.Replace(W, ReplaceString)
                    End If

                Next

            Next

            tbRes.Text = CheckText

        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical)
        End Try
    End Sub