بزرگ كردن حرف اول كلمه

[انگوران]

دوستان سلام - دنبال كدي مي گردم كه حرف اول يك كلمه انتخاب شده رو بزرگ كنه يه چيزي شبيه كد زير :

Me.Text1.SelText = UCase(Left(Me.Text1.SelText)) & Right(Me.Text1.SelText, Len(Me.Text1.SelText - 1))

[zzzzzza]

سلام
از اينكه جواب من را در تاپيك هاي مختلف ارسال مي كني ممنون از اين نمونه استفاده كن: