Подсчитать среди трех чисел а, 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=Integer  Then k = k + 1
If b=Integer  Then k = k + 1
If c=Integer  Then k = k + 1
Label4.Caption = "Количество положительных чисел. РАВНО:" & k
End Sub

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

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

textual
                            Листинг программы 
                        
                            If a=Int(a) Then k = k + 1