请问在文本框中，要将用户输入的每一个字符都转为大写，但同时光标焦点始终要保持在最右端，请问该如何写？？

Private Sub Text1_Change()
    Dim tempPos As Long
    tempPos = Text1.SelStart
    Text1.Text = UCase(Text1.Text)
    Text1.SelStart = tempPos
End Sub

哦……原来要记录下光标位置谢版主！！！