大小写转换有关问题

大小写转换问题
如题，课本上给的代码有问题：
Private Sub Text0_KeyPress(KeyAscii As Integer)
Dim aa As String * 1
aa = Chr$(KeyAscii)
Select Case aa
  Case "A" To "Z"
  aa = Chr$(KeyAscii + 32)
  Case "a" To "z" -------------------这一行执行不了，不管按的是大写还是小写字母，都是大写字母的ascii码值
  aa = Chr$(KeyAscii - 32)
  Case "0" To "9"
  Case Else
  aa = "*"
End Select
Text2.SetFocus
Text2.Text = Text2.Text & aa
Text0.SetFocus
Text0.SelStart = LenB(Text0.Text)
End Sub

求解

[解决办法]
在我电脑上是正确的。输入大写，转换成小写；输入小写，转换成大写。
[解决办法]
在我电脑上也没发现问题。大小写转换正常。
[解决办法]