Şimdi denedim.. kodu aşağıdaki şekilde girdiğimde textbox a yazarken işlevi yok..
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 351 Then 'KUCUK SHE
KeyAscii = 83 'BUYUK S
ElseIf KeyAscii = 350 Then ' BUYUK SHE
KeyAscii = 83 'BUYUK S
ElseIf KeyAscii = 304 Then 'BUYUK i
KeyAscii = 73 ' BUYUK I
ElseIf KeyAscii = 305 Then 'KUCUK I
KeyAscii = 73 ' BUYUK I
ElseIf KeyAscii = 287 Then 'KUCUK YUMUSAKG
KeyAscii = 71 ' BUYUK G
ElseIf KeyAscii = 286 Then 'BUYUK YUMUSAKG
KeyAscii = 71 'BUYUK G
ElseIf KeyAscii = 231 Then 'küçük Ç
KeyAscii = 67 'BUYUK C
ElseIf KeyAscii = 199 Then 'büyük Ç
KeyAscii = 67 'BUYUK C
ElseIf KeyAscii = 214 Then 'büyük Ö
KeyAscii = 79 'BUYUK O
ElseIf KeyAscii = 246 Then 'KÜÇÜK Ö
KeyAscii = 79 'BUYUK O
ElseIf KeyAscii = 220 Then 'büyük Ü
KeyAscii = 85 'BUYUK U
ElseIf KeyAscii = 252 Then 'KÜÇÜK Ü
KeyAscii = 85 'BUYUK U
ElseIf KeyAscii > 96 And KeyAscii < 123 Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End If
End Sub