Private Sub CommandButton1_Click()

Код процедуры