YTEragonWTF-Türkçe Karakterleri Büyük Yapma.

Hepinize Merhaba Arkadaşlar Ben YTEragonWTF Türkçe Karakterleri Büyük Yapma kodları vardır kolay gelsin şimdiden

PublicFunction BuyukHarf(TextAsString)
Text = Replace(Text, "a", "A", , , vbBinaryCompare)
Text = Replace(Text, "b", "B", , , vbBinaryCompare)
Text = Replace(Text, "c", "C", , , vbBinaryCompare)
Text = Replace(Text, "d", "D", , , vbBinaryCompare)
Text = Replace(Text, "e", "E", , , vbBinaryCompare)
Text = Replace(Text, "f", "F", , , vbBinaryCompare)
Text = Replace(Text, "g", "G", , , vbBinaryCompare)
Text = Replace(Text, "h", "H", , , vbBinaryCompare)
Text = Replace(Text, "j", "J", , , vbBinaryCompare)
Text = Replace(Text, "k", "K", , , vbBinaryCompare)
Text = Replace(Text, "l", "L", , , vbBinaryCompare)
Text = Replace(Text, "m", "M", , , vbBinaryCompare)
Text = Replace(Text, "n", "N", , , vbBinaryCompare)
Text = Replace(Text, "o", "O", , , vbBinaryCompare)
Text = Replace(Text, "p", "P", , , vbBinaryCompare)
Text = Replace(Text, "r", "R", , , vbBinaryCompare)
Text = Replace(Text, "s", "S", , , vbBinaryCompare)
Text = Replace(Text, "t", "T", , , vbBinaryCompare)
Text = Replace(Text, "u", "U", , , vbBinaryCompare)
Text = Replace(Text, "v", "V", , , vbBinaryCompare)
Text = Replace(Text, "y", "Y", , , vbBinaryCompare)
Text = Replace(Text, "z", "Z", , , vbBinaryCompare)
Text = Replace(Text, "q", "Q", , , vbBinaryCompare)
Text = Replace(Text, "w", "W", , , vbBinaryCompare)
Text = Replace(Text, "x", "X", , , vbBinaryCompare)
Text = Replace(Text, "ğ", "Ğ", , , vbBinaryCompare)
Text = Replace(Text, "ü", "Ü", , , vbBinaryCompare)
Text = Replace(Text, "ş", "Ş", , , vbBinaryCompare)
Text = Replace(Text, "ö", "Ö", , , vbBinaryCompare)
Text = Replace(Text, "ç", "Ç", , , vbBinaryCompare)
Text = Replace(Text, "i", "İ", , , vbBinaryCompare)
Text = Replace(Text, "ı", "I", , , vbBinaryCompare)
BuyukHarf = Text
EndFunction

PrivateSub Form_KeyPress(KeyAscii AsInteger)
KeyAscii = Asc(BuyukHarf(Chr(KeyAscii)))

EndSub