Текстовое поле (TextBox) - Отключение обрезки пробелов в конце строки

Private vAllText As Variant

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Me!Текст = vAllText
End Sub

Private Sub Текст_Change()
    vAllText = Me!Текст.Text
End Sub

MSA-2007 ( 17 kB) Пример