Ansi To Unicode Converter
function cevir(karakter)

karakter=Replace(karakter,"ý",Chr(253))
karakter=Replace(karakter,"ð", Chr(240))
karakter=Replace(karakter,"Ý", Chr(221))
karakter=Replace(karakter,"Ð", Chr(208))
karakter=Replace(karakter,"Þ", Chr(253))
karakter=Replace(karakter,"þ", Chr(254))
cevir=karakter
end function

Kullanımı:
cevir(ansi) veya cevir("ansi olan metin")
unicode=cevir(ansi) veya unicode=cevir("ansi olan metin")

Tamamen kendime aittir mysql için gerekti bende yazdım.Şimdide paylaşıma sunuyorum..