Public Function CheckMessage(byval Msg As String) As String
Dim kArray() As String
Dim Swears As String
Dim i As Integer
Dim SwearChar As String
   
    Swears = "ass,fuck,shit,bitch,damn,cunt,whore,piss,jesus,god"
    kArray = Split(Swears, ",")
   
    SwearChar = "*"
   
    For i = 0 To UBound(kArray)
        If InStr(LCase(Msg$), LCase(kArray(i))) Then
              Msg$ = Replace$(LCase(Msg$), LCase(kArray(i)), LCase(String(Len(kArray(i)), SwearChar)))
        End If
    Next i
   
    CheckMessage = Msg
End Function

Call GlobalMsg(ChatText)

Call GlobalMsg(CheckMessage(ChatText))

Public Function CheckMessage(ByVal Msg As String) As String
Dim kArray() As String
Dim SwearCensor As String
Dim Swears As String
Dim i As Integer
Dim SwearChars As String
Dim SwearRnd As String
Dim strname As String
   
    Swears = "ass,fuck,shit,bitch,biatch,cunt,whore,piss,bastard,crap,nigger,pussy,penis,vagina,wank,masterbate"
    kArray = Split(Swears, ",")
   
    SwearChars = "*@!?$"
    SwearCensor = Len(SwearChars)
    SwearRnd = Int((SwearCensor * Rnd) + 1)
   
    strname = strname & Mid(SwearChars, SwearRnd, 1)
   
    For i = 0 To UBound(kArray)
        If InStr(LCase(Msg$), LCase(kArray(i))) Then
              Msg$ = Replace$(LCase(Msg$), LCase(kArray(i)), LCase(String(Len(kArray(i)), strname)))
        End If
    Next i
   
    CheckMessage = Msg
End Function