function koruma(shn)
shn=Replace(shn, "Ä°", "İ",1,-1,1)
shn=Replace(shn, "ı", "ı",1,-1,1)
shn=Replace(shn, "Ä?", "Ğ",1,-1,1)
shn=Replace(shn, "ÄŸ", "ğ",1,-1,1)
shn=Replace(shn, "Å", "ş",1,-1,1)
shn=Replace(shn, "Å", "ş",1,-1,1)
shn=Replace(shn, "Ö", "Ö",1,-1,1)
shn=Replace(shn, "ö", "ö",1,-1,1)
shn=Replace(shn, "Ç", "Ç",1,-1,1)
shn=Replace(shn, "ç", "ç",1,-1,1)
shn=Replace(shn, "Ãœ", "Ü",1,-1,1)
shn=Replace(shn, "ü", "ü",1,-1,1)
shn=Replace(shn, "Ÿ", "",1,-1,1)

koruma=shn
end function


Yapmak istediğin şeyi doğru anlamışsam eğer replace ile yapabilirsin...

ID yerine koruma(ID) şeklinde yaparsan istediğin şekilde olur sanırım..