Const EM_GETMODIFY=&HB8
Сообщение EM_GETMODIFY позволяет получить состояние флага модификации. Флаг модификации - это флаговый бит, который устанавливается в 1 при каждой модификации содержимого элемента. Вы можете посылать это сообщение текстовому полю (TextBox) или RichTextBox
Сообщение не имеет параметров. Используйте 0
' Проверяем, изменилось ли содержание текстового поля ' Вы должны создать текстовое поле Text1 ' Создадим для удобства функцию проверки Public Function Changed(ByVal _ ctlTextBox As TextBox) As Boolean ' get change state of control Changed = _ SendMessage(ctlTextBox.hWnd, _ EM_GETMODIFY, 0, 0) <> 0 End Function ' Используем функцию Private Sub Command1_Click() MsgBox IIf(Changed(Text1), "Да!", "Нет") End Sub