Public Function fncCleanString(cleanString as string) as string

        fncCleanString = Replace(Replace(Replace(Trim(cleanString), " ", " |"), "| ", ""), " |", " ")

End Function