cases in forms

[FRIEL]

hey guys

i have a form with textboxs in them
alls i want to do is have the first letter in the textbox to be uppercase and the rest to be lowercase.
i can do all upper or all lower by doing

Private Sub TextBox2_Change()
TextBox2.Value = UCase(TextBox2.Value)
End Sub

and

Private Sub TextBox2_Change()
TextBox2.Value = LCase(TextBox2.Value)
End Sub

but i need it to be like title case

any ideas???

[TonyS]

Hi,
Try this

    TextBox2.Value = UCase(Left(TextBox2.Value, 1)) & LCase(Right(TextBox2.Value, Len(TextBox2.Value) - 1))

Tony

[shg]

Or

TextBox2.Value = WorksheetFunction.Proper(TextBox2.Value)

[FRIEL]

thanks guys

tony:
yea i was tryin to do somthin like that
i thort it would work and i think it almost did
mine needed jus a lil sumthin
thanks

shg:
as always worked like a treat