Как сделать кнопк «ОК»? Я тупой - VBA/Excel

Private Sub CommandButton1_Click()
    Dim fio, r, lr!, m(), max!, nm!, summ!, sumi!
    fio = TextBox1.Text
    With Лист1
        lr = Cells(Rows.Count, 1).End(xlUp).Row
        m = .Cells(1, 1).Resize(lr, 3).Value
        For r = 2 To lr
            summ = summ + m(r, 3)
            If m(r, 1) = fio Then
                sumi = sumi + m(r, 3)
                ''тут продолжаешь в таком же духе
            End If
        Next r
    End With
End Sub