Как создать оператор вычитания и умножения в VBA PowerPoint?

Public a As Integer
Public b As Integer
Public c As Integer
Public d As Integer
Public e As Integer
Private Sub CommandButton1_Click()
'a - переменная для первого числа
'b - переменная для второго числа
'c - переменная для получения результата
'd, e - переменная для подсчета верных
'f - переменная оператора выбора
'присваеваем значение переменным a и b через RND в интеревале (0:20)
Randomize Timer
b = Int(Rnd * 21)
a = Int(Rnd * 21)
If a < b Else a = b and b = a
Label2.Caption = a
Label4.Caption = b
' вычисляем результат
c = a - b
 
TextBox1.Text = ""
End Sub
Private Sub CommandButton2_Click()
If Str(d) > Str(e) Then Label11.Caption = "Молодец!" Else Label11.Caption = "Попробуй еще раз"
End Sub
Private Sub CommandButton4_Click()
If Val(c) = Val(TextBox1) Then
d = d + 1
Label6.Caption = "Правильно!"
Else
e = e + 1
Label6.Caption = "Не правильно!"
End If
Label8.Caption = Str(d)
Label10.Caption = Str(e)
End Sub
Private Sub CommandButton3_Click()
UserForm1.Hide
End Sub

If a < b then ...<инструкция>

If a < b then
<инструкции>
else
<инструкции>
end if

If a < b Then <инструкции> Else:<инструкции>