Dediğin gibi replace ile yapabilirsin.
İşine yarayabilir.

Function degis(asd)
degis = asd
degis = Replace(degis, "Ãœ", "Ü")
degis = Replace(degis, "Åz", "Ş")
degis = Replace(degis, "Äz", "Ğ")
degis = Replace(degis, "äÿ", "ğ")
degis = Replace(degis, "Ç", "Ç")
degis = Replace(degis, "Ä°", "İ")
degis = Replace(degis, "ä°", "i")
degis = Replace(degis, "Ö", "Ö")
degis = Replace(degis, "ü", "ü")
degis = Replace(degis, "ã¼", "ü")
degis = Replace(degis, "ÅŸ", "ş")
degis = Replace(degis, "åÿ", "ş")
degis = Replace(degis, "ÄŸ", "ğ")
degis = Replace(degis, "ç", "ç")
degis = Replace(degis, "ã§", "ç")
degis = Replace(degis, "ı", "ı")
degis = Replace(degis, "ä±", "ı")
degis = Replace(degis, "ö", "ö")
degis = Replace(degis, "ã¶", "ö")
End Function

Eksik karakterler vardır mutlaka, zamanla gelen aramalardaki bozuk karakterleri bularak düzeltirsin.