Найти количество четырехзначных чисел, сумма цифр которых равна 9 - VB

Private Sub Command2_Click()
k = 0 '- Количество чисел'
For x = 1000 To 9999
    a = x \ 1000 '- Тысячи'
    y = x Mod 1000
    b = y \ 100 '- Сотни'
    z = y Mod 100
    c = z \ 10 '- Десятки'
    d = z Mod 10 '- Единицы'
    s = a + b + c + d '- Сумма'
    If s = 9 Then k = k + 1
Next x
Print k
End Sub