Исправить программу, чтобы матрица вводилась не с TextBox, а с консоли

Imports Microsoft.VisualBasic.Interaction
Imports System
Public Class Form1
 
Public Class Application
        Public Shared Sub Main()
            Console.Write("Введите размерность матрицы N = ")
 
            Dim _N As Integer = 0
 
            Try
                _N = Convert.ToInt32(Console.ReadLine())
            Catch ex As Exception
                Console.WriteLine("Ошибка ввода размерности: " + ex.Message)
                Console.WriteLine("Нажмите любую кнопку для выхода...")
                Console.ReadKey()
                Return
            End Try
 
            Console.WriteLine("Ввод элементов первой матрицы...")
            Dim _MatrixA(_N, _N) As Integer
            Try
                DefineMatrix(_MatrixA, _N)
            Catch ex As Exception
                Console.WriteLine("Ошибка ввода элемента матрицы: " + ex.Message)
                Console.WriteLine("Нажмите любую кнопку для выхода...")
                Console.ReadKey()
                Return
            End Try
            Console.WriteLine("Ввод элементов первой матрицы завершен.")
 
            Console.WriteLine("Ввод элементов второй матрицы...")
            Dim _MatrixB(_N, _N) As Integer
            Try
                DefineMatrix(_MatrixB, _N)
            Catch ex As Exception
                Console.WriteLine("Ошибка ввода элемента матрицы: " + ex.Message)
                Console.WriteLine("Нажмите любую кнопку для выхода...")
                Console.ReadKey()
                Return
            End Try
            Console.WriteLine("Ввод элементов второй матрицы завершен.")
 
            Dim _Result(_N, _N) As Integer
 
            For i As Integer = 0 To _N - 1
                For j As Integer = 0 To _N - 1
                    For k As Integer = 0 To _N - 1
                        _Result(i, j) = _Result(i, j) + _MatrixA(i, k) * _MatrixB(k, j)
                    Next
                Next
            Next
 
            Console.WriteLine("Результат:")
 
            For i As Integer = 0 To _N - 1
                WriteMatrixRow(_MatrixA, _N, i)
 
                If (i = 1) Then
                    Console.Write("*")
                Else
                    Console.Write(" ")
                End If
 
                WriteMatrixRow(_MatrixB, _N, i)
 
                If (i = 1) Then
                    Console.Write("=")
                Else
                    Console.Write(" ")
                End If
 
                WriteMatrixRow(_Result, _N, i)
 
                Console.WriteLine()
            Next
 
            Console.WriteLine("Нажмите любую кнопку для выхода...")
            Console.ReadKey()
        End Sub
 
        Shared Sub DefineMatrix(ByVal _Matrix(,) As Integer, ByVal _N As Integer)
            For i As Integer = 0 To _N - 1
                For j As Integer = 0 To _N - 1
                    Console.Write("Введите элемент матрицы [" + (i + 1).ToString() + "," + (j + 1).ToString() + "] = ")
                    _Matrix(i, j) = System.Convert.ToInt32(Console.ReadLine())
                Next
            Next
        End Sub
 
        Shared Sub WriteMatrixRow(ByVal _Matrix(,) As Integer, ByVal _N As Integer, ByVal _Row As Integer)
            Console.Write("|")
 
            For i As Integer = 0 To _N - 1
                If i > 0 Then Console.Write(",")
 
                Console.Write(String.Format("{0,3}", _Matrix(_Row, i)))
            Next
 
            Console.Write("|")
        End Sub
    End Class
End Class