VBA yazı karekter sorunu

[KorayAtalik]

Selamlar;

Personal workbook'a aşağıdaki gibi bir kod yazdım.Fakat Google'da "i" harfleri "0" olarak çıkıyor.

Yardımcı olabilirseniz sevinirim.


sub
Dim x As String

x = ActiveCell.Value

Shell "C:\Program Files\Internet Explorer\Iexplore.exe http://www.google.com.tr", vbMaximizedFocus

Application.Wait (Now + TimeValue("0:00:2"))
Application.SendKeys (x)


SendKeys String:="{Enter}"

end sub