Даны четыре целых числа. Определить, сколько из них четных

Dim x, i, k, c As Integer ' ошибка при объявлении  переменных, у вас только c будет иметь тип данных Integer, остальные
'будут иметь тип данных Variant
For i = 1 To 4
x = InputBox("Введите число", "Ввод данных")
If x < 0 Then  'При таком условии функция будет работать только с отрицательными числами. 
if x and 1 then "нечетное" ' Неправильно код, вы пишите Если х и 1 то, Вам надо x mod 2 = 1 число нечетное, x mod 2 = 0 
' число четное оператор mod возвращает остаток от деления
else "четное"
End If
Next
x = MsgBox("Из четырех чисел четные  - " + Str(k), vbOKOnly, "Информация")

Dim x As Integer, i As Integer, k As Integer
k = 0 'В этой переменной храним количество четных чисел
For i = 1 To 4
    x = InputBox("Введите число", "Ввод данных")
    If x Mod 2 = 0 Then k = k + 1 'Проверка условия, если остаток от деления на 2 равен 0, то число четное
Next i
MsgBox "Введено четных чисел: " & k

x = InputBox("Введите число", "Ввод данных")
If x And 1 Then
MsgBox ("Число " + Text1.Text + " нечетное  " + Text2.Text)
Else
MsgBox ("Число " + Text1.Text + "четное  " + Text2.Text)
End If
Next
x = MsgBox("Из четырех чисел четные  - " + Str(k), vbOKOnly, "Информация")