Срочно нужно разобраться в написании кнопки!!! - Visual Basic .NET - Ответ 801827

Sub Matrix()
    Dim k As Integer, l As Integer, tmpArr, iCol As Integer, iRow As Integer, i As Integer, j As Integer
    With Selection
        iCol = .Columns.Count: iRow = .Rows.Count
        If iCol < 2 Or iRow < 2 Then Exit Sub
        k = InputBox("First column:"): l = InputBox("Second column:")
        If k > iCol Or l > iCol or k + l < 2 Then Exit Sub
        tmpArr = .Columns(k)
        .Columns(l).Copy .Columns(k)
        .Columns(l) = tmpArr
        For i = 1 To iRow
            tmpArr = 1
            For j = 2 To iCol
                If .Cells(i, j) > .Cells(i, tmpArr) Then
                    tmpArr = j
                End If
            Next
            .Cells(i, iCol + 2) = tmpArr
        Next
    End With
End Sub