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

[dimava]

here's the 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?