Xx = UCase(replace(replace(Xx, "ı", "I"), "i", "İ"))
Alttaki gibide bir kod buldum deneyemedim mobilden düzenledim küçük harfe çeviriyormuş Çç yerine çÇ ile değiştirin fiğerlerinide.
Kod:
Set deg = CreateObject("VBScript.Regexp")
deg.Pattern = "[^a-zA-Z0-9\Çç\Ğğ\İi\Iı\Öö\Şş\Üü\ ]"
deg.Global = True
xx = Trim(deg.Replace(xx, " "))
Set deg = Nothing