VBA в Excel

[Дашкаа]

очень нужно решить задачи!!
завтра экзамен!
1. В ячейку А1 вводится целое число. Создать программу, которая определяет четное ли оно и считает число его разрядов (результат поместить в ячейки A2 и A3)
2. Введите с клавиатуры список фамилий студентов в группе в массив. Вычислите среднюю длину фамилии введённого списка, а также средний квадрат отклонения длины фамилии от значения средней длины фамилии.

[doober]

Надо и самой что то сделать.
Это вам в помощь по первому пункту.
Для второго жаль файлы,лимит на сегодня израсходовал

Private Sub Дашкаа()
Dim b As Integer, i As Integer
b = 13002
If b Mod 2 = 0 Then
MsgBox "Чёт"
Else
MsgBox "Нечёт"
End If
i = 0
Do
b = b / 10
i = i + 1
Loop While b > 0
MsgBox "Разрядов " & i
End Sub

[Дашкаа]

спасибо!!!