Проблема с commandButton

[Mrsqler]

Всем привет)Только начал учить VBA,пытаюсь написать калькулятор.
Мне нужно чтобы когда я нажимал на кнопку,то её значение отображалось в Textbox.

Private Sub cmd1_Click()
Dim cmd1 As Integer

Select Case cmd1
Case cmd1

txtcmd.Text = 1


End Select
End Sub

Проблема в том,что когда жму на кнопку cmd1 появляется значение в TextBox,но только ОДИН раз.Что нужно сделать, чтобы знчение кнопки cmd1 появлялось в TextBox каждый раз при нажатии на нее?

[Казанский]

txtcmd.Text = txtcmd.Text & "1"

[Mrsqler]

Да!Спасибо большое,то что нужно)