Подсчитать среди трех чисел а, b и с количество пар взаимно противоположных чисел - VBA

Формулировка задачи:

Напишите в среде Excel макрос, который среди трех чисел а, b и с должен подсчитывать:Количество пар взаимно противоположных чисел. Сразу оговорюсь, что я чайник

Private Sub CommandButton1_Click()
Dim a As Single, b As Single, c As Single
Dim k As Integer
a = Val(TextBox1)
b = Val(TextBox2)
c = Val(TextBox3)
k = 0
If a>0 or a<0  Then k = k + 1
If b>0 or b<0 Then k = k + 1
If c>0 or c<0  Then k = k + 1
Label4.Caption = "Количество пар взаимно противоположных чисел. РАВНО:" & k
End Sub

Пытаюсь использовать этот макрос выдает ошибку

Решение задачи: «Подсчитать среди трех чисел а, b и с количество пар взаимно противоположных чисел - VBA»

textual
                            Листинг программы 
                        

                            If a=-b Then k = k + 1
If a=-c Then k = k + 1
If c=-b Then k = k + 1
                        