Codigo De Malas Palabras (Testiado en 11.5)

Crean un Modulo y lo llaman MalasPalabras y pegan esto

Option Compare Text
'Codigo By GuiyepRlz-. para Servers Argentum
Public Function EsMalapalabra(ByVal Rdata As String)
Select Case UCase$(Rdata)
Case "NW"
Case "PT"
Case "PUTO"
Case "CONCHA"
Case "TROLA"
Case "PUTAZO"
Case "PIJA"
Case "VERGA"
Case "MIERDA"
Case "C o n c h a"
Case "MANKO"
Case "MANCO"
Case "NEWBIE"
Case "CAJETA"
Case "SENEB"
Case "ORGASMO"
Case "FANNY"
Case "PORONGA"
Case "CHUPAME"
Case "SOBALA"
Case "CABE"
Case "KB"
Case "TKB"
Case "GIL"
Case "BOBO"
Case "TONTO"
Case "SALAME"
Case "VIRGO"
Case "VIRGEN"
Case "NEGRO"
Case "PUTASO"
Case "PUTAZO"
Case "MANKISIMO"
Case "DROGADO"
Case "ORTO"
Case "OJETE"
Case "CULO"
Case Else
EsMalapalabra = False
Exit Function
End Select
EsMalapalabra = True
Call SendData(";" & "$_@%$!")
frmMain.SendTxt.Text = ""
stxtbuffer = ""
KeyCode = 0
frmMain.SendTxt.Visible = False
'GuiyepRlz-.
End Function

Si Quieren Agregar Otra Palabra Ponen Arriba de Case "CULO"