Yardım Userform textbox larda büyük harf türkçe katakter sorunu

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

KeyAscii = Asc(UCase(Chr(KeyAscii)))
TextBox4 = Replace(TextBox4, "i", "İ")
TextBox4 = Replace(TextBox4, "ı", "I")
TextBox4 = Replace(TextBox4, "ğ", "Ğ")
TextBox4 = Replace(TextBox4, "ç", "Ç")
TextBox4 = Replace(TextBox4, "ş", "Ş")
TextBox4 = Replace(TextBox4, "ö", "Ö")
TextBox4 = Replace(TextBox4, "ü", "Ü")

If TextBox4 = vbNullString Then Exit Sub
If IsNumeric(TextBox4) Then
MsgBox "SADECE HARF GİREBİLİRSİNİZ.", vbExclamation, " DİKKAT !"
TextBox4 = vbNullString
End If
TextBox4.BackColor = 14020607

'TextBox3.Text = ""
End Sub

Merhaba
Bu kodlarla büyük harf girişini sağlıyorum,
ancak türkçe karakterler de hataya düşüyor.
Sorunu nasıl çözebiliriz?
Teşekkürler.