Выполнить макрос при нажатии на кнопку

Option Explicit
    Dim a(3, 4) As Double, i As Integer, j As Integer, k As Single
 
Private Sub CommandButton2_Click()
    a(1, 1) = 2: a(1, 2) = 0: a(1, 3) = -1: a(1, 4) = 1
    a(2, 1) = 1: a(2, 2) = -3: a(2, 3) = 1: a(2, 4) = 2
    a(3, 1) = 1: a(3, 2) = 1: a(3, 3) = 4: a(3, 4) = 4
    
    myPrint
    
    k = (a(3, 1) / a(1, 1))
    For i = 1 To 4
        a(3, i) = a(3, i) - k * a(1, i)
    Next
    k = (a(2, 1) / a(1, 1))
    For i = 1 To 4
        a(2, i) = a(2, i) - k * a(1, i)
    Next
    k = (a(3, 2) / a(2, 2))
    For i = 1 To 4
        a(3, i) = a(3, i) - k * a(2, i)
    Next
    a(3, 4) = a(3, 4) / a(3, 3)
    a(3, 3) = 1
    
    k = (a(2, 3) / a(3, 3))
    For i = 1 To 4
        a(2, i) = a(2, i) - k * a(3, i)
    Next
    a(2, 4) = a(2, 4) / a(2, 2)
    a(2, 2) = 1
    
    k = (a(1, 3) / a(3, 3))
    For i = 1 To 4
        a(1, i) = a(1, i) - k * a(3, i)
    Next
    k = (a(1, 2) / a(2, 2))
    For i = 1 To 4
        a(1, i) = a(1, i) - k * a(2, i)
    Next
    a(1, 4) = a(1, 4) / a(1, 1)
    a(1, 1) = 1
 
    myPrint
    
End Sub
 
Sub myPrint()
    Print CStr(a(1, 1)) + vbTab + CStr(a(1, 2)) + vbTab + CStr(a(1, 3)) + vbTab + CStr(a(1, 4))
    Print CStr(a(2, 1)) + vbTab + CStr(a(2, 2)) + vbTab + CStr(a(2, 3)) + vbTab + CStr(a(2, 4))
    Print CStr(a(3, 1)) + vbTab + CStr(a(3, 2)) + vbTab + CStr(a(3, 3)) + vbTab + CStr(a(3, 4))
    Print vbCrLf
End Sub

Print CStr(a(1, 1)) + vbTab + CStr(a(1, 2)) + vbTab + CStr(a(1, 3)) + vbTab + CStr(a(1, 4)