Заполнить матрицу по образцу - VB

Option Base 1
Private Sub Command1_Click()
Dim m As Integer, i As Integer
Dim n As Integer, j As Integer
Dim Z() As Integer, E() As Integer, T() As Integer
Dim W() As Integer
m = InputBox("Введите m=")
n = InputBox("Введите n=")
 ReDim Z(m, n)
For i = 1 To m
For j = 1 To n
Z(i, j) = InputBox(" Z ( " & i & " " & j & " ) = ")
Print "(Z" & i & " " & j & ")) =" & Z(i, j);
Next
Print
Next
ReDim E(m, n)
For i = 1 To m
For j = 1 To n
E(i, j) = InputBox(" E ( " & i & " " & j & " ) = ")
Print "(E" & i & " " & j & ")) =" & E(i, j);
Next
Print
Next
ReDim T(m, n)
For i = 1 To m
For j = 1 To n
T(i, j) = InputBox(" T ( " & i & " " & j & " ) = ")
Print "(T" & i & " " & j & ")) =" & T(i, j);
Next
Print
Next
ReDim W(m, n)
For i = 1 To m
For j = 1 To n
W(i, j) = Z(i, j) + E(i, j) - T(i, j)
Print "(W" & i & " " & j & ")) =" & W(i, j)
Next
Next
End Sub