hocam sorun çözüldü fakat..

baslik = list("baslik")
baslikilkharf= left(baslik,1)
baslikilkharf=replace(baslikilkharf,"ç","Ç")
baslikilkharf=replace(baslikilkharf,"ş","Ş")
baslikilkharf=replace(baslikilkharf,"ğ","Ğ")
baslikilkharf=replace(baslikilkharf,"ı","I")
baslikilkharf=replace(baslikilkharf,"i","İ")
baslikilkharf=replace(baslikilkharf,"ü","Ü")
baslikilkharf=replace(baslikilkharf,"ö","Ö")
baslikilkharf = ucase(baslikilkharf)
kalanbaslik = right(baslik,len(baslik)-1)

kalanbaslik =replace(kalanbaslik ,"Ç","ç")
kalanbaslik =replace(kalanbaslik ,"Ş","ş")
kalanbaslik =replace(kalanbaslik ,"Ğ","ğ")
kalanbaslik =replace(kalanbaslik ,"I","ı")
kalanbaslik =replace(kalanbaslik ,"İ","i")
kalanbaslik =replace(kalanbaslik ,"Ü","ü")
kalanbaslik =replace(kalanbaslik ,"Ö","ö")
kalanbaslik = lcase(kalanbaslik)
yenibaslik = baslikilkharf & kalanbaslik

Bu kodlar ile Bir kelimenin baş hafi büyütülmek istenmiş. bu kodlar yüzünden türkçe karakter hatası verıyor . bunu nasıl çözebilirim. bu kodları kaldırdıgımda tamamen türkçe karakter hatası vermeyi durduruyor. veriler veritabanından geliyor. UTF-8 olarak