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

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

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

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

Option Explicit
 
Private Sub Комманда1_Click()
Dim b, a
Dim s
Dim I
Dim C() As String
Randomize
b = InputBox("Введите число", "Ввод числа", Int(1000000000 * Rnd + 1000000000))
 Print b
 s = b
 For I = 1 To Len(b)
 a = a & "@ "
 Next I
C = Split(Format(b, a), " ")
 For I = 0 To UBound(C)
 s = s & vbCrLf & C(I)
Print C(I)
 Next I
 MsgBox s
End Sub