Вvisual basic . введите 2 числа , если их разность больше 8 , то числа перемножить в противном случае сложить.

Dim a As Integer, b As Integer
Private Sub CommandButton1_Click()
a = TextBox1.Value
b = TextBox2.Value
If a - b > 8 Then
CommandButton1.Caption = "Произведение = " & (a * b)
Else
CommandButton1.Caption = "Сумма = " & (a + b)
End If
End Sub