Сформировать массив из строки - VB

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

Задача: Задано целое натуральное число n, Сформулировать массив значения элементов которого будут цифры заданного числа. Вот чет я намутил. А че не так без понятия. P.S. А еще подскажите кто в курсе как открыть Visual Basic в Word 2007

Sub lalalalala()
Dim inti As Integer
Dim intZ As Integer
Dim blny As Boolean
 
Dim intA() As Integer
Dim strm As String
Dim intS As Integer
Dim lngh As Long
  For intS = 0 To 2
    strm = InputBox("введите цифры")
    blny = IsNumeric(strm)
    If blny = True Then
    lngh = Len(strm)
    ReDim intA(lngh - 1)
  Exit For 'выход из цикла
    Else
    intZ = intZ + 1 'считывание номера неудачной попытки
     MsgBox ("ошибка, введите цифры,попыток осталось:" + str(3 - intZ)) 'вывод сообщения о ошибке
       End If
       
       For inti = 0 To lngh - 1
       intA(inti) = CInt(Mid(strm, inti + 1, 1)) 'запись в массив числа по отдельности
       Debug.Print "fount элемент" & inti & "="; intA(inti) & Chr(10) & Chr(13) 'вывод
     Next inti
     
   Next intS
  Exit Sub
 
End Sub

Решение задачи: «Сформировать массив из строки»

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

                            Sub lalala()
Dim ArrayNum() As Integer
Dim CountN As Integer
Dim Numb As String
Numb = InputBox("Введите целое положительное число", "Массив цифр", "123456")
CountN = Len(Numb)
If CountN > 1 And Val(Numb) > 0 Then
ReDim ArrayNum(1 To CountN)
For i = 1 To CountN
  ArrayNum(i) = Val(Mid(Numb, i, 1))
Next
 
'************************************************************************
'Проверка, к заданию не относится
For i = 1 To CountN
Debug.Print ArrayNum(i)
Next
'************************************************************************
Else
MsgBox "Число содержит 1 цифру или отрицательное!"
End If
 
 
End Sub
                        