ASP Ucase to Lcase Function - Büyük ve Küçük Harf Türkçe Karakter Problemi

Function KucukKarakterYap(hedef)  
hedef=Replace(hedef,"Q" ,"q" ) 
hedef=Replace(hedef,"W" ,"w" ) 
hedef=Replace(hedef,"E" ,"e" )
hedef=Replace(hedef,"R" ,"r" ) 
hedef=Replace(hedef,"T" ,"t" ) 
hedef=Replace(hedef,"Y" ,"y" ) 
hedef=Replace(hedef,"U" ,"u" )
hedef=Replace(hedef,"I" ,"ı" ) 
hedef=Replace(hedef,"O" ,"o" ) 
hedef=Replace(hedef,"P" ,"p" ) 
hedef=Replace(hedef,"Ğ" ,"ğ" )
hedef=Replace(hedef,"Ü" ,"ü" ) 
hedef=Replace(hedef,"A" ,"a" ) 
hedef=Replace(hedef,"S" ,"s" ) 
hedef=Replace(hedef,"D" ,"d" )
hedef=Replace(hedef,"F" ,"f" ) 
hedef=Replace(hedef,"G" ,"g" ) 
hedef=Replace(hedef,"H" ,"h" ) 
hedef=Replace(hedef,"J" ,"j" )
hedef=Replace(hedef,"K" ,"k" ) 
hedef=Replace(hedef,"L" ,"l" ) 
hedef=Replace(hedef,"Ş" ,"ş" ) 
hedef=Replace(hedef,"İ" ,"i" )
hedef=Replace(hedef,"Z" ,"z" ) 
hedef=Replace(hedef,"X" ,"x" ) 
hedef=Replace(hedef,"C" ,"c" )
hedef=Replace(hedef,"V" ,"v" ) 
hedef=Replace(hedef,"B" ,"b" ) 
hedef=Replace(hedef,"N" ,"n" ) 
hedef=Replace(hedef,"M" ,"m" )
hedef=Replace(hedef,"Ö" ,"ö" ) 
hedef=Replace(hedef,"Ç" ,"ç" )
KucukKarakterYap=(hedef) 
End Function