cases in forms

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???