If LCase(Parse(0)) = "saymsg" Then

' Prevent hacking
        For i = 1 To Len(Msg)
              If Asc(Mid$(Msg, i, 1)) < 32 Or Asc(Mid$(Msg, i, 1)) > 126 Then
                  Call HackingAttempt(Index, "Say Text Modification")
                  Exit Sub
              End If
        Next i

Call CheckMessage(Index, Msg)

Public Function CheckMessage(Index As Long, Msg As String)
Dim kArray() As String
Dim Swears As String
Dim i As Integer
Dim SwearChar As String
   
    Swears = "ass,fuck,shit,bitch,damn,"
    kArray = Split(Swears, ",")
   
    SwearChar = "*"
     
    ' Thanks to Classified For Help with the Full Word Replacement
    For i = 0 To UBound(kArray)
        If InStr(LCase(Msg$), LCase(kArray(i))) Then
              'Msg = Replace(Msg, kArray(i), SwearChar)
              Msg$ = Replace$(LCase(Msg$), LCase(kArray(i)), LCase(String(Len(kArray(i)), SwearChar)))
        End If
    Next i
End Function

Public Function CheckMessage(Msg As String)
Dim SwearSplit() As String
Dim SwearReplaceSplit() As String
Dim Swears As String
Dim SwearReplace As String
Dim i As Integer
   
    Swears = "ass,fuck,shit,bitch,"
    SwearReplace = "***,f**k,s**t, b****,"
   
    SwearSplit = Split(Swears, ",")
    SwearReplaceSplit = Split(SwearReplace, ",")
     
    For i = 0 To UBound(SwearSplit)
        If InStr(LCase(Msg$), LCase(SwearSplit(i))) Then
              Msg$ = Replace$(LCase(Msg$), LCase(SwearSplit(i)), LCase(SwearReplaceSplit(i)), 1)
        End If
    Next i
   
End Function