Private Sub txtName_LostFocus() Call CleanupText(txtName) End Sub Private Sub CleanupText(txtBox as TextBox) txtBox.Text = Ucase(txtBox.Text) End SubA 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.