ник: Рафаиль
Private Sub Form_Load()
'При загрузке формы присваиваем первоначально 0
Pole1.Value = 0
End Sub
Private Sub Btn1_Click()
' При нажатии увеличиваем на 1
Pole1.Value = Val(Pole1.Value) + 1
End Sub
Private Sub Btn2_Click()
' При нажатии уменьшаем на 1
Pole1.Value = Val(Pole1.Value) - 1
End Sub