VBA Access Ввод данных

[Ethex]

Доброго времени суток
Имеется процедура создания таблицы. Предварительно она предлагает пользователю ввести кооличество полей для создаваемой таблицы

Public Sub user_createTable()
Dim i As Long
Dim fName As String, fieldsQuan As String
Dim regex As New RegExp
    If MsgBox("Указать колличество столбцов самостоятельно", vbYesNo, "Создание входной таблицы") = vbYes Then
    regex.Global = True
    regex.Pattern = "\d+"
    CurrentDb.Execute "CREATE TABLE SSC (field1 VARCHAR)"
        Do
        fieldsQuan = InputBox("Укажите количество столбцов:")
        Loop Until regex.Test(fieldsQuan) = True
        For i = 2 To CInt(fieldsQuan)
        fName = "field" & CStr(i)
        CurrentDb.Execute "ALTER TABLE SSC ADD [" & fName & "] VARCHAR"
        Next
    Else
    MsgBox "Входная таблица не создана"
    End If
End Sub

Инпутбокс я поместил в логический цикл для того, чтобы окно ввода данных выплывало до тех пор, пока пользователь не введёт значение из цифровых символов. Однако, мне хотелось бы чтобы при нажатии на кнопку отмены окна ввода процедура завершалась. Но в таком виде (т.е. находясь внутри цикла), нажатие кнопки отмены приводит к тому, что окно выплывает ещё раз
Как обработать нажатие на кнопку отмены?
И, если есть более грамотный способ реализации задумки, ознакомьте, если не сложно

[Aleksandr H.]

Public Sub user_createTable()
Dim i As Long
Dim fName As String, fieldsQuan As String
Dim regex As New RegExp
    If MsgBox("Указать колличество столбцов самостоятельно", vbYesNo, "Создание входной таблицы") = vbYes Then
    regex.Global = True
    regex.Pattern = "\d+"
    CurrentDb.Execute "CREATE TABLE SSC (field1 VARCHAR)"
        Do
        fieldsQuan = InputBox("Укажите количество столбцов:")
        Loop Until regex.Test(fieldsQuan) = True Or fieldsQuan = vbNullString
        If fieldsQuan = vbNullString Then Exit Sub
        For i = 2 To CInt(fieldsQuan)
        fName = "field" & CStr(i)
        CurrentDb.Execute "ALTER TABLE SSC ADD [" & fName & "] VARCHAR"
        Next
    Else
    MsgBox "Входная таблица не создана"
    End If
End Sub

[Ethex]

А истина где-то рядом
Aleksandr H., спасибо вам в очередной раз