Передать значение из модуля формы в другую процедуру

[Maxx]

Всем доброго дня!

Структура работы:

Sub Main()
бла-бла-бла

UserForm1.Show (в форме есть три текстбокса, в которых ОБЯЗАТЕЛЬНО должны быть введены числа - день, месяц, год. После чего 'присваивается d=день, m=месяц, y=год и форма скрывается UserForm1.Hide).

... и далее эти значения должны быть использованы в Main

бла-бла-бла

End Sub

Sub Main() не видит d,m и y. Они пусты. Чего я только не перепробовал! Это вообще возможно, не записывая эти данные куда-нибудь в ячейку?

[istoe]

при невыгруженной форме

UserForm1.textbox1.value

в main не получаете значение ?

[Maxx]

при невыгруженной форме в main не получаете значение ?

Увы, не получаю

[The_Prist]

Объявите их(d, m, y) как Public в стандартном модуле(Module), а не в модуле формы.

Пример:

Public d as integer, m as integer, y as integer
Sub Main()
UserForm1.Show
debug.print dateserial(y,m,d)
End Sub

[Maxx]

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

Объявите их(d, m, y) как Public в стандартном модуле(Module), а не в модуле формы.

Пример:

Public d as integer, m as integer, y as integer
Sub Main()
UserForm1.Show
debug.print dateserial(y,m,d)
End Sub

А вот до этого, блин, я не додумался
Все ОК! СПАСИБО!