If TextBox1.SelectionStart = TextBox1.Text.Length Then ' Cursor am Ende 
        ' der Textbox, letztes Zeichen entfernen
            TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1)
        Else ' Wenn Text markiert ist diese Markierung löschen
            TextBox1.Text = TextBox1.Text.Remove(TextBox1.SelectionStart, _
              TextBox1.SelectionLength)
        End If

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co