Переменной А присвоить ее значение, увеличенное в N раз, 2N раз, 3N раз - VB

Option Explicit
Dim N As Integer
Dim A As Single
Dim tempA As Single
Dim mn As Integer ' множитель
Private Sub Form_load()
A = InputBox("Введите значение A")
N = InputBox("Введите значение N?")
mn = 1
tempA = A
End Sub
 
Private Sub Command1_Click()
 A = tempA * N * mn
 Print tempA; " *"; mn; " *"; N; " ="; A
 mn = mn + 1                        ' увеличение множителя
End Sub