Как поменять местами минимальный и максимальный элемент в каждой строке матрицы

Private Sub Command1_Click()
Dim i As Double
Dim j As Double
Dim max As Double
Dim min As Double
Dim n As Integer
Dim m As Integer
Dim a() As Double
Dim j_max, j_min As Integer
Cls
m = 5 '÷èñëî ñëîáöîâ
n = 5 '÷èñëî ñòðîê
ReDim a(1 To n, 1 To m)
ReDim b(1 To n, 1 To m)
    For i = 1 To n
        For j = 1 To m
        a(i, j) = Int(Rnd * 18 - 1)
        b(i, j) = a(i, j)
        Print a(i, j); vbTab;
        Next
        Print
    Next
'''''''''''''''''''''''''''''''''''''''''
    For i = 1 To n
    max = a(i, 1)
    min = a(i, 1)
    j_max = 1
    j_min = 1
        For j = 1 To m
            If a(i, j) > max Then
                max = a(i, j)
                j_max = j
            End If
            If a(i, j) < min Then
                min = a(i, j)
                j_min = j
            End If
        Next
        a(i, j_max) = min
        a(i, j_min) = max
Print
    Next
    
    For i = 1 To n
        For j = 1 To m
        Print a(i, j); vbTab;
        Next
        Print
    Next
End Sub