Moving the cursor in a Textbox on a Userform

[_Ken_]

Hi,
Can anybody offer any advice, I have a Userform with a TextBox, where the user enters a couple of numbers (to do a search) however, on clicking CommandButton1, I want the cursor to jump to the end of the text in the TextBox and insert a * .
So in other words, how do I implement 'CTL-END' into a macro?

Ken

 

[Scott Huish]

Perhaps:

Private Sub CommandButton1_Click()
Dim t As String
t = TextBox1.Text
If Len(t) > 0 And Right(t, 1) <> "*" Then TextBox1.Text = t & "*"
TextBox1.SetFocus
End Sub

 

[_Ken_]

Solved by Hotpepper

Thanx Hotpepper, your code works like magic.