Счастливый билет и вычисление функции - VB

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

Здравствуйте. Возникла проблема со следующими заданиями: 1) Написать программу, выводящую в столбец рабочего листа все счастливые номера шестизначных билетов. Билет считается счастливым, если сумма первых трех цифр совпадает с суммой его трех последних цифр. ВОт код, который у меня есть, но он не работает

Sub Задачка()
Dim a() As Long, N As Double, i As Double, NHappy As Integer
Randomize Timer ' построить ряд случайных чисел
N = 32661
ReDim a(N)
Sheets("Лист1").Select
Columns("B:B").Clear ' очистить столбец A
For i = 1 To N
    For j = 1 To 999999
a(i) = j
Cells(i, 1) = a(i) 
If Happy(a(i)) Then NHappy = NHappy + 1
Next j
Next i
End If
MsgBox ("Всего счастливых чисел=" + Str(NHappy))
End Sub
Function Happy(a As Long) As Boolean
Dim N1 As Integer, N2 As Integer, N3 As Integer, N4 As Integer, N5 As Integer
Dim N6 As Integer ' Ni - i-тая цифра в числе
N1 = a \ 100000: N2 = (a \ 10000) Mod 10
N3 = (a \ 1000) Mod 10: N4 = (a \ 100) Mod 10
N5 = (a \ 10) Mod 10: N6 = a Mod 10
' Истина, если сумма первых трех цифр равна сумме вторых трех цифр
Happy = N1 + N2 + N3 = N4 + N5 + N6
End Function

2) Написать программу для вычисления функции (см.прикрепленный файл) Программа должна автоматически строить график данной функции на произвольном отрезке [a;b] (a и b вводятся с клавиатуры). Не знаю как ввести сумму такую

Решение задачи: «Счастливый билет и вычисление функции»

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