Навскидку. Я бы делал так. Любое изменение текста это позиции SelStart, SelEnd (или SelLength+SelStart? не помню точно...) и содержимое SelText (или Selection?). Если длина выделения - ноль, то изменение - одна буква. При OnChange запоминаем все эти значения в массив структур (как бы в стек). Если нужно сделать undo, берем с вершины массива-стека SelStart, SelEnd, устанаваливаем их в текстбоксе и пишем в текстбоксовый SetText запомненное значение из стека. 

Перемещение по массиву в две стороны даёт операции redo и undo. Если работаем с RichTextBox, то там, вроде, есть особое свойство, чтобы брать выделенный текст вместе с форматированием... Приблизительно так. Сейчас не установлен VB, завтра попробую набрать пример. Не уверен, что будет работать при drag&drop текста из данного текстбокса в него же. а может и будет, если вырезание и вставка дает два onchange.

 

Нет, OnChange не пойдет. Там уже измененный текст. Есть еще вариант с посылкой сообщений  EM_REDO, EM_UNDO, EM_STOPGROUPTYPING.  Жалко, не могу попробовать в VB. 

Был не прав. EM_UNDO в VB6 не позволяет сделать многоступенчатый откат. Тут нужно RichEdit 2.0, а вэбэшный РТБ вроде связан с RE 1.0. Так что либо создавать RTB через CreateWindowEx (и упариться с ним потом), либо поискать ocx для RE 2.0. А проще все-таки программить самому.  

Enhanceв RichEdit Control