Attribute VB_Name = "modBobba" Public Function Filter(strInput) As String Dim i As Long Swearword = Split(frmMain.FILT.Text, Chr(1))(1) Swearword = Split(Swearword, vbCrLf) For i = 0 To UBound(Swearword) If Swearword(i) <> "" Then strInput = Replace(strInput, Swearword(i), Split(frmMain.FILT.Text, Chr(1))(0), 1, -1, vbTextCompare) End If Next i Filter = strInput End Function Public Function CheckBadWords(strInput) As String Result = 0 Swearword = Split(frmMain.FILT.Text, Chr(1))(1) Swearword = Split(Swearword, vbCrLf) For i = 0 To UBound(Swearword) If Swearword(i) <> "" Then If InStr(strInput, Swearword(i)) <> 0 Then Result = 1 Exit For End If End If DoEvents Next i CheckBadWords = Result End Function