Выполнение действий в автоматическом режиме - VBA

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

Здравствуйте! Подскажите пожалуйста, как можно автоматизировать данный код (чтобы все выполнялось автоматически в один клик)?

Private Sub CommandButtonSet_Click()
    Select Case True
        Case LabelCountShips.Caption = "4-1"
                ModuleVH4_1.VH4_1
        Case LabelCountShips.Caption = "3-2"
                ModuleVH3_2.VH3_2
        Case LabelCountShips.Caption = "3-1"
                ModuleVH3_1.VH3_1
        Case LabelCountShips.Caption = "2-3"
                ModuleVH2_3.VH2_3
        Case LabelCountShips.Caption = "2-2"
                ModuleVH2_2.VH2_2
        Case LabelCountShips.Caption = "2-1"
                ModuleVH2_1.VH2_1
        Case LabelCountShips.Caption = "1-4"
                ModuleN1_4.N1_4
        Case LabelCountShips.Caption = "1-3"
                ModuleN1_3.N1_3
        Case LabelCountShips.Caption = "1-2"
                ModuleN1_2.N1_2
        Case LabelCountShips.Caption = "1-1"
                ModuleN1_1.N1_1
    End Select
End Sub

Но все не так-то просто. В каждом модуле есть проверка на истинность или ложь. Если истинно код в модуле выполняется и при каждом нажатии на кнопку осуществляется следующий Case. Если ложь, то вылезает окно MsgBox с ошибкой и данный модуль выполняется до тех пор, пока не станет истинно. Мне нужно создать еще одну кнопку, но только чтобы там все выполнялось автоматически, и не вылезали окна MsgBox (их можно заменить на что-нибудь, допустим на textbox1.value = "ошибка"). Также нужно, если ложь, то выполнялся модуль до тех пор пока не будет истинным. Как это осуществить? Какой код нужно прописать в кнопке?

Решение задачи: «Выполнение действий в автоматическом режиме»

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

                            Private Sub CommandButtonSet_Click()
    Dim S$
    S = Replace(LabelCountShips.Caption, "-", "_")
    Select Case Left(LabelCountShips.Caption, 1)
        Case "4", "3", "2"
            S = "ModuleVH" & S & ".VH" & S
            Application.Run S
        Case "1"
            S = "ModuleN" & S & ".N" & S
            Application.Run S
    End Select
End Sub
                        