Hi guys, I should have been clearer .

What I want to be able to do is reconstitute what the user typed in the Text Box.

Currently what I use is very simple and works well to change the text in the text box (TextBoxSection) to vbProperCase.

Private Sub TextBoxSection_Change()
Me.TextBoxSection = StrConv(TextBoxSection, vbProperCase)
End Sub

Instead of changing it to vbProperCase, I would like it to format it in line with what Macropod's code does to selected text in the actual document. I have saved that code and have used it successfully in various documents.

Thank you.