Поправить код - VB

Формулировка задачи:

Здравствуйте ребята, подскожите пожалуйсто, почему в условиях при повторной загрузке формы, передается цифра из ячейки, а SpinBoton1_SpinUp,не продолжает счет с того что отображается в текстовом поле. думаю приложенный пример будет нагляднее.

Решение задачи: «Поправить код»

textual
                            Листинг программы 
                        

                            Private Sub Spin1_SpinUp()
dDate = Date
    lEndMonthDay = Day(DateSerial(Year(dDate), Month(dDate) + 1, 0)) 'ГЇГ®Г±Г«ГҐГ¤Г*ГЁГ© Г¤ГҐГ*Гј Г¬ГҐГ±ГїГ¶Г* dDate
    If Spin1.Value > lEndMonthDay Then Spin1.Value = 1
    Text1.Text = Text1.Text + 1
End Sub
                        