If you use the left arrow key to go back to the beginning of a word and then enter a letter, you get twouppercase letters. Use this code, which takes advantage of the built-in VB4/VB5 StrConv() function, toautomatically capitalize words upon entering:
Private Sub Text1_Change() If Text1.Tag = "" Then Text1.Tag = Text1.SelStart Text1.Text = StrConv(Text1.Text, vbProperCase) Text1.SelStart = Text1.Tag Text1.Tag = "" End IfEnd Sub