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

Private Sub Command1_Click()
Dim a(5, 5) As Integer
For j = 1 To 5
    For i = 1 To 5
        a(i, j) = Rnd * 10
        Print a(i, j);
    Next i
    Print
Next j
Max = 0
For j = 1 To 5
    For i = 1 To 5
        If a(i, j) > Max Then
            Max = a(i, j)
            k = i
            'k - Íîìåð Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*îãî ýëåìåГ*ГІГ* Гў ñòðîêå'
        End If
    Next i
    l = a(k, j)
    a(k, j) = a(j, j)
    a(j, j) = l
    Max = 0
Next j
Print
For j = 1 To 5
    For i = 1 To 5
        Print a(i, j);
    Next i
    Print
Next j
'Печать матрицы на форме'
Print
End Sub