Проблема с Textbox в Vba (exsel 2003)

[Smoiseenko]

Есть Userform созданный в VBA (запущенной из MS Excel) на ней распологается поле ввода TextBox1 и кнопка
CommandButton1

Код следующий

Dim sНаименование_группы As String

Private Sub Добавление_группы_в_список_групп_материалов()
sНаименование_группы = TextBox1.Text
MsgBox sНаименование_группы
End Sub

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then MsgBox "Вы не ввели имя новой группы"
Call Добавление_группы_в_список_групп_материалов
End Sub

После запуска кода к выполнению наблюдаю следующее.

Если в TextBox1 не ввожу ничего и нажимаю на кнопку, выскакивает сообщение "Вы не ввели имя новой группы" (То что нужно!)

А вот если ввожу, поидее после нажатия кнопки должна произойти передача переменной sНаименование_группы текста который я ввел в поле TextBox1, а потом появления сообщения с этим текстом. Но в реале, что бы я не ввел, появляется пустой MsgBox так как будто я ничего и не вводил.

То же самое и при замене в коде свойства TextBox1.Text на TextBox1.Value. Еще более странно то, что если я пишу код с прямым присвоением TextBox1.Value = "Что либо..."
и связываю этот код с событием Click для CommandButton1

После нажатия на кнопку в поле TextBox1 ничего не появляется.

Я уже сломал Моск, перечитал все справочники, думаю может это глюк Бэйсика такой. Подскажите плиз кто опытный может я че ни понимаю или не так пишу.
Ато очень надо.

Заранее всем спасибо за ответы.

 

[Over]

А может попробуй не Dim sНаименование_группы As String, а Public sНаименование_группы As String