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.