Public Function VolatileName(CompanyName As String , Optional UsedForLookup As Boolean = False )

Dim SimplifiedName As String

'Look Only in the middle

SimplifiedName = Replace(CompanyName, " AND " , " & " )

'Start Looking anywhere

SimplifiedName = " " & UCase(SimplifiedName) & " "

SimplifiedName = Replace(SimplifiedName, "/" , " " )

SimplifiedName = Replace(SimplifiedName, "'S" , "" )

SimplifiedName = Replace(SimplifiedName, "'" , "" )

SimplifiedName = Replace(SimplifiedName, "," , " " )

SimplifiedName = Replace(SimplifiedName, "." , "" )

SimplifiedName = Replace(SimplifiedName, "!" , "" )

SimplifiedName = Replace(SimplifiedName, ":" , " " )

SimplifiedName = Replace(SimplifiedName, "-" , " " )

SimplifiedName = Replace(SimplifiedName, " CO " , " " )

SimplifiedName = Replace(SimplifiedName, " COS " , " " )

SimplifiedName = Replace(SimplifiedName, " CORP " , " " )

SimplifiedName = Replace(SimplifiedName, " INC " , " " )

SimplifiedName = Replace(SimplifiedName, " LTD " , " " )

SimplifiedName = Replace(SimplifiedName, " GRP " , " " )

SimplifiedName = Replace(SimplifiedName, " DEL " , " " )

SimplifiedName = Replace(SimplifiedName, " HLDG " , " " )

SimplifiedName = Replace(SimplifiedName, " HLDGS " , " " )

SimplifiedName = Replace(SimplifiedName, " OF " , " " )

SimplifiedName = Replace(SimplifiedName, " THE " , " " )

SimplifiedName = Replace(SimplifiedName, " COMPANY " , " " )

SimplifiedName = Replace(SimplifiedName, " COMPANIES " , " " )

SimplifiedName = Replace(SimplifiedName, " CORPORATION " , " " )

SimplifiedName = Replace(SimplifiedName, " INCORPORATED " , " " )

SimplifiedName = Replace(SimplifiedName, " LIMITED " , " " )

SimplifiedName = Replace(SimplifiedName, " GROUP " , " " )

SimplifiedName = Replace(SimplifiedName, " HOLDING " , " " )

SimplifiedName = Replace(SimplifiedName, " HOLDINGS " , " " )

SimplifiedName = Replace(SimplifiedName, " PLC " , " " )

SimplifiedName = Replace(SimplifiedName, " LP " , " " )

SimplifiedName = Replace(SimplifiedName, " SA " , " " )

SimplifiedName = Replace(SimplifiedName, " NV " , " " )

SimplifiedName = Replace(SimplifiedName, " AG " , " " )

SimplifiedName = Replace(SimplifiedName, " OAO " , " " )

SimplifiedName = Replace(SimplifiedName, " OYJ " , " " )

SimplifiedName = Replace(SimplifiedName, " COR " , " " )

SimplifiedName = Replace(SimplifiedName, " P L C " , " " )

SimplifiedName = Replace(SimplifiedName, " L P " , " " )

SimplifiedName = Replace(SimplifiedName, " S A " , " " )

SimplifiedName = Replace(SimplifiedName, " N V " , " " )

SimplifiedName = Replace(SimplifiedName, " A G " , " " )

'These ones are just for 13f's

SimplifiedName = Replace(SimplifiedName, " VCT " , " VENTURE CAPITAL TRUST " )

SimplifiedName = Replace(SimplifiedName, " BANCORP " , " BANCORPORATION " )

SimplifiedName = Replace(SimplifiedName, " INTL " , " INTERNATIONAL " )

SimplifiedName = Replace(SimplifiedName, " NAT " , " NATIONAL " )

SimplifiedName = Replace(SimplifiedName, " NATL " , " NATIONAL " )

SimplifiedName = Replace(SimplifiedName, " FINL " , " FINANCIAL " )

SimplifiedName = Replace(SimplifiedName, " INVT " , " INVESTMENT " )

SimplifiedName = Replace(SimplifiedName, " INVS " , " INVESTORS " )

SimplifiedName = Replace(SimplifiedName, " STL " , " STEEL " )

SimplifiedName = Replace(SimplifiedName, " CENTY " , " CENTURY " )

SimplifiedName = Replace(SimplifiedName, " SVCS " , " SERVICES " )

SimplifiedName = Replace(SimplifiedName, " INDS " , " INDUSTRY " )

SimplifiedName = Replace(SimplifiedName, " PPTYS " , " PROPERTY " )

SimplifiedName = Replace(SimplifiedName, " PPTY " , " PROPERTY " )

SimplifiedName = Replace(SimplifiedName, " CAP " , " CAPITAL " )

SimplifiedName = Replace(SimplifiedName, " MGMT " , " MANAGEMENT " )

SimplifiedName = Replace(SimplifiedName, " RES " , " RESOURCES " )

SimplifiedName = Replace(SimplifiedName, " CHEM " , " CHEMICAL " )

SimplifiedName = Replace(SimplifiedName, " CHEMS " , " CHEMICALS " )

SimplifiedName = Replace(SimplifiedName, " LABS " , " LABORATORY " )

SimplifiedName = Replace(SimplifiedName, " PRODS " , " PRODUCTS " )

SimplifiedName = Replace(SimplifiedName, " PIES " , "[[The Great Pie Exception]]" )

'More exceptions can go here

SimplifiedName = Replace(SimplifiedName, "IES " , "Y " )

SimplifiedName = Replace(SimplifiedName, "[[The Great Pie Exception]]" , " PIES " )

'remove all double Spaces

Do While InStr(1, SimplifiedName, Chr(32) & Chr(32)) > 0

Let SimplifiedName = Replace(SimplifiedName, Chr(32) & Chr(32), Chr(32))

Loop

'Look Only at the End

If Right(SimplifiedName, 3) = " AS" Then

SimplifiedName = Left(SimplifiedName, Len(SimplifiedName) - 3)

End If

If Right(SimplifiedName, 3) = " AB" Then

SimplifiedName = Left(SimplifiedName, Len(SimplifiedName) - 3)

End If

If Right(SimplifiedName, 3) = " BV" Then

SimplifiedName = Left(SimplifiedName, Len(SimplifiedName) - 3)

End If

If Right(SimplifiedName, 4) = " NEW" Then

SimplifiedName = Left(SimplifiedName, Len(SimplifiedName) - 4)

End If

If Right(SimplifiedName, 3) = " IN" Then

SimplifiedName = Left(SimplifiedName, Len(SimplifiedName) - 3)

End If

If SimplifiedName = "" And Not UsedForLookup Then

SimplifiedName = "Do not find"

End If

VolatileName = SimplifiedName