can someone please add to this little code to make it....

here's the code:

Code:

---

    txtLine1.Text = Left(txtLine1.Text, Len(txtLine1.Text) - 1)
    txtLine1.SelStart = Len(txtLine1.Text) & " "
    txtLine1.SetFocus

---

it deletes 1 character from the right of the text box. now how do I make it delete 1 character from the right and then add a " " to the end?

Surely this would do it

Code:

---

txtLine1.Text = Left(txtLine1.Text, Len(txtLine1.Text) - 1) & " "

---