>You could put the following in your code then:
>
>

>Private Sub txtName_LostFocus()
>
>   Call CleanupText(txtName)
>
>End Sub
>
>Private Sub CleanupText(txtBox as TextBox)
>
>   txtBox.Text = Ucase(txtBox.Text)
>
>End Sub
>

>
>A little cumbersome but it reduces the code in each LostFocus event. If there is a better way to do this then I don't know how.

The amount of code doesn't concern me as much as having to type in every control's name. But since I have already had to open every control's event, I suppose it isn't much more trouble. I miss OOP.