Запросить у пользователя числа, преобразовать их в строки

Dim sVyhod As String
Private Sub Command1_Click()
Dim A() As String, stroka As Variant, i As Integer, j As Integer
  sVyhod = "": Varianty (CStr(InputBox("Введите цифры:", , "123")))
  ReDim A(0 To Len(sVyhod))
  stroka = Split(sVyhod)
  For i = 0 To UBound(stroka)
     For j = 1 To Len(stroka(i))
        A(i) = Mid(stroka(i), j, 1)
        If j = 1 Then Print StrConv(S(CInt(A(i))), 3); Else Print S(CInt(A(i)));
     Next j
     Print  ' vbCrLf 'Если нужно увеличить межстрочное
  Next i
End Sub
Function S(chislo As Integer) As String
         Select Case chislo
               Case 0: S = "ноль "
               Case 1: S = "один "
               Case 2: S = "двa "
               Case 3: S = "три "
               Case 4: S = "четырe "
               Case 5: S = "пять "
               Case 6: S = "шесть "
               Case 7: S = "семь "
               Case 8: S = "восемь "
               Case 9: S = "девять "
               Case Else: S = " - "
           End Select
End Function
Public Sub Varianty(S As String, Optional sTemp As String = "")
Dim i As Integer
  If Len(S) = 1 Then
    sVyhod = sVyhod & sTemp & S & " "
  Else
    For i = 1 To Len(S)
      Varianty Left$(S, i - 1) & Mid$(S, i + 1), sTemp & Mid$(S, i, 1)
    Next
  End If
End Sub