Программа которая умножает 2 числа столбиком

MsgBox ("1 массив")
 
Dim inputString As String
 
Dim two As Integer
 
Dim i As Integer
Dim n As Integer
 
Dim arrFirst() As Integer
 
Dim result As Double
 
 
inputString = InputBox("Введите длинное число")
n = Len(inputString)
ReDim arrFirst(1 To n)
For i = 1 To n
    arrFirst(i) = CInt(Mid(inputString, i, 1))
Next
 
inputString = InputBox("Введите короткое число")
two = CInt(inputString)
 
result = 0#
For i = 1 To n
    result = result + arrFirst(i) * (10 ^ (n - i)) * two
Next
 
MsgBox (CStr(result))

Dim inputString As String
Dim inputString1 As String
Dim mult As String
Dim two As Integer
Dim i As Integer
Dim n As Integer
Dim k As Integer
Dim l As Integer
Dim decim As Integer
Dim arrFirst() As String
Dim result() As String
Dim arrThird() As String
inputString = InputBox("Введите длинное число")
n = Len(inputString)
ReDim arrFirst(n)
For i = 0 To n - 1
    arrFirst(i) = Mid(inputString, i + 1, 1)
Next
inputString1 = InputBox("Введите короткое число")
two = CInt(inputString1)
If Len(CStr(CDbl(inputString) * two)) > n Then
ReDim result(n + 1)
Else
ReDim result(n)
End If
decim = 0
For i = 0 To n - 1
    If CInt(arrFirst(n - i - 1)) * two + decim < 10 Then
    result(i) = CStr(CInt(arrFirst(n - i - 1)) * two + decim)
    decim = 0
    Else
    result(i) = CStr((CDbl(arrFirst(n - i - 1)) * two + decim) Mod 10)
    decim = (CInt(arrFirst(n - i - 1)) * two + decim) \ 10
    End If
Next i
If decim > 0 Then
result(n) = decim
End If
mult = ""
l = 0
ReDim arrThird(UBound(result)) As String
For k = UBound(result) - 1 To 0 Step -1
arrThird(l) = result(k)
mult = mult + result(k)
l = l + 1
Next k
MsgBox (mult)