n*1

Private Sub Command1_Click()

   Cls

   Dim a() As Byte

   Dim r() As Byte

   Dim b As String

   Dim c As Byte

   Dim i As Long

   Dim L As Long

    L= Len(Me.Text1.Text)

   ReDim a(L)

   For i = 1 To L

       b = Mid(Me.Text1.Text, i, 1)

       a(i) = Int(Val(b))

   Next i

    c= Int(Val(Me.Text2.Text))

   Dim d As Byte

   Dim t As Byte

   ReDim r(L)

   For i = L To 1 Step -1

       t = a(i) * c + d

       r(i) = t Mod 10

       d = t \ 10

   Next

   If d <> 0 Then

       Print d;

       End If

       For i = 1 To L

       Print r(i);

       Next i

      

End Sub