Найти в матрице максимальные и минимальные элементы и обменять их местами - VB

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

Помогите дописать программу. Немогу дописать конец программы чтоб она выводила конечный результат после того как поменяла их местами. Задача:Дана матрица размерности n на m. Найти в ней максимальные и минимальные элементы и обменять их местами.

        Dim A(10, 10) As Integer
        Dim n As Integer
        Dim m As Integer
        Dim max As Integer
        Dim min As Integer
        Dim k As Integer
        Dim c As Integer
        Dim b As Integer
        Dim d As Integer
        Dim q As Integer
        Dim i As Integer
        Dim j As Integer
        n = InputBox("Введите количество строк")
        m = InputBox("Введите количество столбцов")
        ReDim A(0 To n, 0 To m)
        For i = 1 To n
            For j = 1 To m
                A(i, j) = InputBox("Вв. элемент массива")
                MsgBox(i & vbTab & j)
            Next
        Next
        max = A(1, 1)
        k = 1
        c = 1
        min = A(1, 1)
        b = 1
        d = 1
        For i = 1 To n
            For j = 1 To m
                If A(i, j) > max Then
                    max = A(i, j)
                    k = i
                    c = j
                End If
                If A(i, j) < min Then
                    min = A(i, j)
                    b = i
                    d = j
                End If
            Next
        Next
        MsgBox("max = " & A(k, c))
        MsgBox("min = " & A(b, d))
        q = A(k, c)
        A(k, c) = A(b, d)
        A(b, d) = q
        For i = 1 To n
            For j = 1 To m
            Next
        Next
        MsgBox(i & vbTab & j)

Решение задачи: «Найти в матрице максимальные и минимальные элементы и обменять их местами»

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

                            Private Sub Command1_Click()
   Dim A() As Integer
        Dim n As Integer
        Dim m As Integer
        Dim max As Integer
        Dim min As Integer
        Dim k As Integer
        Dim c As Integer
        Dim b As Integer
        Dim d As Integer
        Dim q As Integer
        Dim i As Integer
        Dim j As Integer
        Dim answer
        answer = ""
        n = InputBox("Введите количество строк")
        m = InputBox("Введите количество столбцов")
        ReDim A(0 To n, 0 To m)
        For i = 1 To n
            For j = 1 To m
                A(i, j) = InputBox("Вв. элемент массива" & i & j)
            Next
        Next
        max = A(1, 1)
        k = 1
        c = 1
        min = A(1, 1)
        b = 1
        d = 1
        For i = 1 To n
            For j = 1 To m
                If A(i, j) > max Then: max = A(i, j): k = i: c = j
                If A(i, j) < min Then: min = A(i, j): b = i: d = j
            Next
        Next
        MsgBox ("max = " & A(k, c))
        MsgBox ("min = " & A(b, d))
        q = A(k, c)
        A(k, c) = A(b, d)
        A(b, d) = q
        For i = 1 To n
            For j = 1 To m
            answer = answer & A(i, j) & "  "
            Next
            answer = answer & Chr(13)
        Next
        MsgBox answer
End Sub
                        