Организовать ввод чисел до тех пор, пока их сумма не превысит введенного числа m - VBA - Ответ 3741594

Private Sub UserForm_Initialize()
    
    'Задаём свойства ListBoxу.
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "60;60"
    
End Sub
 
Private Sub CommandButton1_Click()
    
    'Переменная, созданная с помощью слова Static,
    'сохраняет своё значение и после завершения процедуры.
    'Пока не закроется форма.
    Static sum As Double
    Dim m As Double
    Dim x As Double
    
    'Считывание числа из поля ввода. При помощи функции CDbl
    'строковый тип преобразуется в числовой.
    m = CDbl(TextBox1.Text)
    
    'Считывание числа из поля ввода. При помощи
    'функции CDbl строковый тип преобразуется в числовой.
    x = CDbl(TextBox2.Text)
 
    sum = sum + x
    
    ListBox1.AddItem
 
    'С помощью этого:
    'Me.ListBox1.ListCount - 1
    'определяется количество строк в ListBox.
    'Т.к. строки нумеруются с нуля, то нужно отнять единицу.
    
    'Me - используется, чтобы проще было код писать:
    'когда ставите точку, то появлюятся всплывающие подсказки.
    ListBox1.List(Me.ListBox1.ListCount - 1, 0) = x
    'Функция Round округляет по бухгалтерскому принципу.
    ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Round(sum, 5)
    
    If sum > m Then
        TextBox2.Enabled = False 'придание свойства тестовому полю
        Label2.Caption = "Ввод чисел не возможен" 'заполнение надписи
        TextBox2.Text = "Превышенно число m"
    End If
    
End Sub