Sub or Function not defined

[jirtreck]

Работает по кнопке вычитание12, но ни один саб больше не запускает. Caption тот же, что в коде.
Пробовал в вычитание21 задать новую переменную, - тоже не запускает

Private Sub UserForm_Click()

End Sub

Private Sub Вычитание12_Click()
Dim a As Integer
a = TextBox1.Value
Dim b As Integer
b = TextBox2.Value
If (a <= 0 Or b <= 0) Then
MsgBox "Числа должны быть больше 0"
Else
MsgBox (a - b)
End If
End Sub

Private Sub Вычитание21_Click()
Dim a1 As Integer
a = TextBox1.Value
Dim b1 As Integer
b = TextBox2.Value
If (a1 <= 0 Or b1 <= 0) Then
MsgBox "Числа должны быть больше 0"
Else
TextBox (b1 - a1)
End If
End Sub

Private Sub Деление12_Click()
Dim a As Integer
a = TextBox1.Value
Dim b As Integer
b = TextBox2.Value
If (a <= 0 Or b <= 0) Then
MsgBox "Числа должны быть больше 0"
Else
TextBox (a / b)
End If
End Sub

Private Sub Деление21_Click()
Dim a As Integer
a = TextBox1.Value
Dim b As Integer
b = TextBox2.Value
If (a <= 0 Or b <= 0) Then
MsgBox "Числа должны быть больше 0"
Else
TextBox (b / a)
End If
End Sub


Private Sub Максимум_Click()
Dim a As Integer
a = TextBox1.Value
Dim b As Integer
b = TextBox2.Value
If (a <= 0 Or b <= 0) Then
MsgBox "Числа должны быть больше 0"
Else
If a > b Then
Max = a
Else: Max = b
End If


TextBox (Max)
End If
End Sub

Private Sub Минимум_Click()
Dim a As Integer
a = TextBox1.Value
Dim b As Integer
b = TextBox2.Value
If (a <= 0 Or b <= 0) Then
MsgBox "Числа должны быть больше 0"
Else
If a > b Then
Min = b
Else: Min = a
End If

TextBox (Min)
End If
End Sub

Private Sub Сложение_Click()
Dim a As Integer
a = TextBox1.Value
Dim b As Integer
b = TextBox2.Value
If (a <= 0 Or b <= 0) Then
MsgBox "Числа должны быть больше 0"
Else
MsgBox (a + b)
End If
End Sub

Private Sub Среднее_Click()
Dim a As Integer
a = TextBox1.Value
Dim b As Integer
b = TextBox2.Value
If (a <= 0 Or b <= 0) Then
MsgBox "Числа должны быть больше 0"
Else
TextBox ((a + b) / 2)
End If
End Sub

Private Sub Степень_Click()
Dim a As Integer
a = TextBox1.Value
Dim b As Integer
b = TextBox2.Value
If (a <= 0 Or b <= 0) Then
MsgBox "Числа должны быть больше 0"
Else
MsgBox (a ^ (b))
End If
End Sub

Private Sub Умножение_Click()
Dim a As Integer
a = TextBox1.Value
Dim b As Integer
b = TextBox2.Value
If (a <= 0 Or b <= 0) Then
MsgBox "Числа должны быть больше 0"
Else
TextBox (b * a)
End If
End Sub

[jirtreck]

Нашел: заместо msgbox дальше идет textbox.

[Казанский]

А почему у Вас везде ограничение "Числа должны быть больше 0"? Целые отрицательные числа могут быть и основанием, и показателем степени:

?-3^-2
-0,111111111111111 
?-3^2
-9 
?3^-2
 0,111111111111111

[IgorGO]

из СМС переписки
девушка:
-- приезжай сегодня вечером ко мне домой, будем заниматься тем, чем нельзя...
парень:
-- это чем? на ноль делить, что-ли?

я не очень внимательно смотрел что там написано, но с точки зрения математики вместо всех проверок нужна только одна:
прежде, чем делить на на что-либо, нужно проверить не равно-ли это что-либо нулю