6 на VB для формы - желательно ручной тип ввода!

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

1.4. Для решения следующих задач написать программы, которые печатают true или false в зависимости от того, выполняются или нет указанные условия: в) определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр; 2.20. Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0: A) y=e^x=1 + x/1! + x^2/2! + ... + x^n/n! + ...; 2.36. Программа. Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислить сумму тех из них, порядковые номера которых - числа Фибоначчи (см. 5.16). 3.2. Для решения каких из следующих задач нужны массивы, а в каких задачах можно обойтись и без них? Б) Дано 50 чисел. Определить, сколько среди них отличных от последнего числа. 3.11. Элементы массива Х упорядочены по возрастанию. Требуется присвоить переменной k номер элемента массива Х, равного числу y, или 0, если такого элемента нет. Использовать следующий метод двоичного (бинарного) поиска: сравнить р со средним элементом массива ( или элементом около середины ); если эти числа равны, поиск завершается, если же р меньше среднего элемента, то р надо искать в левой половине массива, а иначе - в правой; к выбранной половине применяется выбранный алгоритм. 4.10. Заполнить массив А следующим образом: б) 1 2 ... 10 11 12... 20 21 22... 30

Решение задачи: «6 на VB для формы - желательно ручной тип ввода!»

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

                            Private Sub Form_Load()
Dim a As Double
l1:
a = InputBox("Число")
If Len(CStr(a)) <> 4 Then MsgBox ("Neto"): GoTo l1
If Mid(a, 1, 1) + Mid(a, 2, 1) = Mid(a, 3, 1) + Mid(a, 4, 1) Then MsgBox ("True") Else MsgBox ("False")
End Sub
                        