Insert Point in Textbox

Question

Hi,

I have a textbox which has some default text when the program starts.

When the textbox gets focus, is it possible to get the insert point to be located at a particular point in the text? 

Best Regards to all

Answer 1

If you know what text will be in the text box when the userform appears (because your code is creating that text), you can assign a specific number to the text box's .SelStart property. The correct number is the number of characters to the left of the insertion point.

Private Sub UserForm_Initialize()

    With TextBox1

        .Text = "This is the text when the userform starts."

        .SelStart = 12  'before the t in "text"

        .SetFocus

    End With

End Sub

If you want one or more characters to be selected instead of just an insertion point, also set the .SelLength property's value.

If you don't know what text will be there (for example, you're copying in text from the document body), you can use the InStr function on the box's .Text property to search the string for a particular substring. To put the insertion point at the end of the text, use

   .SelStart = Len(.Text)

Answer 2

If you want to edit the text in the text box, I think that the only thing you can do is to use code such as

.TextBox1.Text = Left(.Textbox1.Text, 10) & " some new text " & mid(.Textbox1.Text, 11)

Answer 3

Thanks for your quick response.  I'm sorry I didn't make myself clear. I have a macro that has userform with a textbox in it. The textbox has text in it when it gets focus.

The idea is how to get the insertion point to a particular point in the text using vba.

Thanks

Answer 4

Do you have to use a textbox?  It is much easier to work with tables.