Укоротить код на visual basic

Private Sub Command2_Click()

Dim A() As Integer
Dim matr() As Integer
Dim n As Integer, m As Integer
n = InputBox("Введите число строк")
m = InputBox("Введите число столбцов")
pch = 1
pnch = 1
ReDim matr(1 To n, 1 To m) As Integer
For i = 1 To n
For j = 1 To m
matr(i, j) = InputBox("Введите элементы массива")
Next j
Next i
For i = 1 To n
For j = 1 To m
Print matr(i, j);
Next j
Print
Next i
For i = 1 To n
For j = 1 To m
If matr(i, j) Mod 2 = 0 Then
pch = pch * matr(i, j)
Else
pnch = pnch * matr(i, j)
End If
Next j
Next i
Print
Print
ReDim A(1 To 2)
A(1) = pch
A(2) = pnch
For i = 1 To 2
Print A(i);
Next i
End Sub

Вот код, можно ли его сделать короче?(вопрос чисто из интереса)

Примечание:
отступы остались в ide.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.