Люди, помогите, кто может, плиз) - VB

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

Задание по VBA в Exel надо сделать, мож кто знает как такую прогу написать -
Ввести целое число по запросу или случайным образом.
1)Значением этого числа заполнить N строк и M столбцов рабочего листа;
2)Найти сумму цифр этого числа;
3)Разложить число на простые множители и вывести их в ячейки таблицы.
вот моя ася, если что - 214272657

Решение задачи: «Люди, помогите, кто может, плиз)»

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

                            <font color="blue">Sub</font> sss()
<font color="blue">Dim</font> chislo <font color="blue">As</font> <font color="blue">Long</font> <font color="00AA00">' допущение, что цисло будет целым</font>
<font color="blue">Dim</font> n <font color="blue">As</font> <font color="blue">Long</font>, m <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Dim</font> sumCifr <font color="blue">As</font> <font color="blue">Long</font>

<font color="00AA00">' Запрос числа</font>
 chislo = InputBox(<font color="teal">"Введите число"</font>)

<font color="00AA00">' Заполнение диапазона на листе1</font>
 n = <font color="darkblue"><b>10</b></font>
 m = <font color="darkblue"><b>5</b></font>
 Worksheets(<font color="teal">"Лист1"</font>).Range(<font color="teal">"A1"</font>).Resize(n, m).Value = chislo
 
<font color="00AA00">' Сумма цифр</font>
 <font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> Len(chislo)
  sumCifr = sumCifr + <font color="blue">Mid</font>(chislo, i, <font color="darkblue"><b>1</b></font>)
 <font color="blue">Next</font>
 
 MsgBox <font color="teal">"Сумма цифр цисла "</font> & chislo & Chr(<font color="darkblue"><b>10</b></font>) & _
        <font color="teal">"составляет - "</font> & sumCifr

<font color="blue">End</font> <font color="blue">Sub</font>
                        