Найти сумму тех элементов, которые кратны данному значению K. - VB

Private Sub CommandButton1_Click()
Dim A() As Integer
 
Dim n, k, i As Integer
Dim sum As Long
 
n = Val(InputBox("Введите размерность массива:"))  'а вдруг не число засунут
k = Val(InputBox("Введите число K:")) 'а вдруг не число засунут
ReDim A(n) ' переопределяем массив
sum=0
For i = 1 To n
   A(i) = Val(InputBox("Введите елемент А(" & i & ")")) ' Заполняем массив
   If A(i) Mod k = 0 Then 'Если остаток от деления равен 0
      sum = sum + A(i)
   End If
Next i
MsgBox "Сумма элементов, кратных числу " & k & " =" & sum
 
End Sub