Here is another example from the help files:

KeyDown Event, TextBox Control, CurLine, CurTargetX, CurX, Text
Properties Example


Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
TextBox2.Text = TextBox1.CurLine
TextBox3.Text = TextBox1.CurX
TextBox4.Text = TextBox1.CurTargetX
End Sub


I used this syntax to allow moving the cursor if the user pressed tab
or enter because it seems there is no other way for the user to get
out of the combobox except by using the mouse.

Dan