Структура произведение - VB

Формулировка задачи:

Привет. сижу уже 4ый день ломаю голову что у меня не так. для кого-то такая задача проще простого но не для меня. Надо вычислить произведение , где n, x, y, z задаются пользователем. вроде что-то получилось:

Private Sub Command1_Click()
Dim x() As Integer, y() As Integer, z() As Integer, m As Single, n As Integer, k As Integer
n = InputBox("ввести n")
k = 1
ReDim x(k)
ReDim y(k)
ReDim z(k)
x(k) = InputBox("ввести x = ")
y(k) = InputBox("ввести y = ")
z(k) = InputBox("ввести z = ")
Print "Исходные значения:"
Print
Print "x = " & x(k),
Print "y = " & y(k),
Print "z = " & z(k),
m = 1
For k = 1 To n
m = m * (x(k)^2 + y(k)^2 + z(k)^2)
Next k
Print
Print "Полученные значения. M:"
Print "m=" & m;
End Sub
 
Private Sub Command2_Click()
End
End Sub

но

m = m * (x(k)^2 + y(k)^2 + z(k)^2)

в этой строчке вся проблема, многое попробовал, но что-то не работает.

Решение задачи: «Структура произведение»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer, m As Single, n As Integer, k As Integer
n = InputBox("ввести n")
x = InputBox("ввести x = ")
y = InputBox("ввести y = ")
z = InputBox("ввести z = ")
Print "Исходные значения:"
Print
Print "x = "; x, "y = "; y, "z = "; z
m = 1
For k = 0 To n - 1
    m = m * ((x + k) ^ 2 + (y + k) ^ 2 + (z + k) ^ 2)
Next k
Print
Print "Полученные значения. M:"
Print "m=" & m
End Sub
                        