Нужно откорректировать программу для траспонирования матрицы - VB

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

Нужно транспонировать матрицу, обязательно используя Function. Вроде бы создала по примеру, ну где-то очень глупая ошибка, которая не дает получить корректный результат.

Module Module1
 
    Sub Main()
        Dim n, m, i, j As Integer
        Console.WriteLine("Введите количество строк")
        n = Val(Console.ReadLine())
        Console.WriteLine("Введите количество столбцов")
        m = Val(Console.ReadLine())
        Dim Z(m, n), A(m, n) As Single
        For i = 1 To m Step 1
            For j = 1 To n Step 1
                Console.WriteLine("Введите элемент массива С({0},{1})", i, j)
                Z(i, j) = Val(Console.ReadLine())
            Next j
        Next i
        A(m, n) = TransponedMatrA(m, n, Z)
        Console.WriteLine("Полученная матрица")
        For i = 1 To n Step 1
            For j = 1 To m Step 1
                A(m, n) = TransponedMatrA(m, n, Z)
                Console.WriteLine("A({0},{1})= {2}", i, j, A(i, j))
            Next j
        Next i
        Console.ReadLine()
    End Sub
    Function TransponedMatrA(ByVal m As Integer, ByVal n As Integer, ByVal z(,) As Single) As Single
        Dim A(m, n) As Single
        For i = 1 To m
            For j = 1 To n
                A(j, i) = z(i, j)
            Next j
        Next i
        TransponedMatrA = A(m, n)
        Return A(m, n)
    End Function
End Module

Решение задачи: «Нужно откорректировать программу для траспонирования матрицы»

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

                            Function TransponedMatrA(ByVal m As Integer, ByVal n As Integer, ByVal z(,) As Single) As Single(,)
        Dim A(m, n) As Single
        For i = 1 To m
            For j = 1 To n
                A(j, i) = z(i, j)
            Next j
        Next i
        Return A 
    End Function
                        