dim objFSo, objFile

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.OpenTextFile(getidentifier("$scriptdir")+"badword.txt",1)
  sText = objFile.ReadAll
  arr = split(sText,vbCrLf)
  for i=lbound(arr) to ubound(arr)
    OUTTEXT = Replace(OUTTEXT,Arr(i),"somethingtoreplacewith")
  next