Задана квадратная матрица. Получить транспонированную матрицу (столбцы и строки поменять местами)

Sub TextNToMatrix(ByVal txt As String)
        Dim i, i2, w As Integer
        txt = txt.Replace(".", ",")
        Dim x() = txt.Split({Chr(10), Chr(13)})
        If x.Length = 0 Then
            MsgBox("Текст пуст")
            Exit Sub
        End If
 
        For i = 0 To (x.Length - 1)    ' цикл заполнения матрицы
            Dim x2() = x(i).Split({Chr(9), Chr(32)}, StringSplitOptions.RemoveEmptyEntries)
 
            If (i = 0) Then
                w = x2.Length
                n = w
                ReDim m(w - 1, x.Length - 1)
                If (w <> x.Length) Then
                    MsgBox("Матрица не является квадратной")
                    Exit Sub
                End If
            Else
                If (x2.Length <> w) Then
                    MsgBox("Неправильное количество элементов в строке " & Str(i + 1))
                    ReDim m(n, n)
 
 
                    Exit Sub
                End If
            End If
 
            For i2 = 0 To w - 1
                If Not IsNumeric(x2(i2)) Then
                    MsgBox("Обнаружено нечисловое значение в строке " & Str(i + 1))
                    Exit Sub
                End If
 
                m(i, i2) = Convert.ToDouble(x2(i2))  ' проверка формата текста x(i) путем конвертирования в double
            Next
        Next
 
        MatrixToRichTextbox(m, RichTextBox1)    ' вывод исходной матрицы
    End Sub