How to change all first letter of the words in the textbox to uppercase?

[dnk]

Hi,

I try to change all first letter of the words in the textbox to uppercase.
THis how far i try to change it but just the first word not the entire words.

Private Sub txtQuote_Change()
  txtQuote.Text = UCase$(Left(txtQuote.Text, 1)) & LCase$(Mid$(txtQuote.Text, 2))
  txtQuote.SelStart = Len(txtQuote.Text)
End Sub

Please Help.
Best regards

Thank you.

[Jx_Man]

Why not use StrConv()

See if this helps :

Private Sub txtQuote_Change()
  txtQuote.Text = StrConv(txtQuote.Text, vbProperCase)
  txtQuote.SelStart = Len(txtQuote.Text)
End Sub

[dnk]

Solved.