Replace ile düzeltebilirsin ;
Alıntı
1. function tCevir(gelenveri)
2. gelenveri=Replace(gelenveri,"ı","ı")
3. gelenveri=Replace(gelenveri,"ÄŸ","ğ")
4. gelenveri=Replace(gelenveri,"ü","ü")
5. gelenveri=Replace(gelenveri,"ç","ç")
6. gelenveri=Replace(gelenveri,"İ","İ")
7. gelenveri=Replace(gelenveri,"Ä","Ğ")
8. gelenveri=Replace(gelenveri,"Ç","Ç")
9. gelenveri=Replace(gelenveri,"Ü","Ü")
10. gelenveri=Replace(gelenveri,"ö","ö")
11. gelenveri=Replace(gelenveri,"Ö","Ö")
12. tCevir = gelenveri
13. end Function