Как вернуться в состояние до нажатия кнопки? - VB

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

Подскажите как мне вернуться в состояние ДО нажатие кнопки...

                    Листинг программы
                
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim d1, d2 As Date
        Dim d3 As Integer
        d1 = DateTimePicker1.Value
        d2 = DateTimePicker2.Value
        d3 = DateDiff(DateInterval.Day, d1, d2) + 1
        If d3 <= 1 Then MsgBox("Вы не выбрали числа командировки !", vbCritical)

Данное вычисление календарных дней происходит ПОСЛЕ нажатия кнопки, как бы, в случае ошибки(d3<=1), мне вернуться в исходное состояние ? Операторы GoTo и ему подобные работают только "внутри" И еще вопрос, у меня есть 20 CheckBox'ов, один из них полюбому должен быть выбран, если галочки нигде нет, то MsgBox и возврат в начало до "нажатия кнопки". Оператор if отказывается это делать, я его пробывал уговаривать... не получается. Все CheckBox'ы в операторе if не перечислишь, ругается. Подскажите пожалуйста...

Решение задачи: «Как вернуться в состояние до нажатия кнопки?»

textual
                            Листинг программы 
                        
IF CheckBox1.checked = false And CheckBox2.checked = false And  CheckBox3.checked = false Then exit sub