lcGoodChars='abcedefghijklmnopqrstuvwxyzæøå' lcGoodChars=lcGoodChars + Upper(lcGoodChars) Return Chrtran(lcString, Chrtran(pcString,lcGoodChars,""), "")