在窗体上有一个文本框，其名称为Text1，编写下列事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim str As String

str=Chr(KeyAscii)

KeyAscii=Asc(UCase(str))

Text1.Text=Stririg(2,KeyAscii)

End Sub

程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。