TextBox и дата

[Fordros]

Доброго времени суток!
Прошу помощи в такой задачке, а именно имеется форма с TextBox'ами, в один из них нужно подтянуть дату в формате (20 листопада 2012) тоесть сделать это как текст по умолчанию, решил эту проблему изменением локализации винды и вот таким вот кодом:

Private Sub UserForm_Activate()
  TextBox19.Value = Format(Now(), "d mmmm yyyy")
End Sub

все вроде бы нормально работает, вот только незадача - день нужно менять, а такое решение дает удалить текст, но не добавить или заменить!

Вся надежда на светлые умы!!!

[motorway]

Не очень понятно, в чём проблема. Если вставить такой код, то в текстовом поле можно писать, изменять, стирать данные.

[VictorM]

Format(Now(), "d mmmm yyyy")

даст Вам текущую, системную дату. При таком раскладе здесь ничего не поменяешь.
Просто все затрется.
а вот что такое

день нужно менять, а такое решение дает удалить текст, но не добавить или заменить

не совсем понятно

[Fordros]

Сообщение от motorway

Не очень понятно, в чём проблема. Если вставить такой код, то в текстовом поле можно писать, изменять, стирать данные.

Все верно, но у меня получается изменить данные (отредактировать) только после того как удалю 5-8 символов из бокса и потом меняй сколько влезет, а мне нужно только дату поменять!!!

[VictorM]

а мне нужно только дату поменять!!!

Помещайте Ваши нужные даты в ячейке рабочего листа и берите их оттуда в TextBox
исчезнут все проблемы.
Или же нужно будет использовать календарь.
Просто не соввсем понятна задача.

[Fordros]

как то странно, пришел домой, думаю стряпаю пример чтобы убрать все непонятки, сделал форму повторил весь код и все чудно работает. Мб. проблема в винде (дома Win 8, а на работе ХР).

Всем спасибо за участие !!!