Private Sub Command2_Click()
Dim X As String
X = Text1.Text
Text1.Text = X + "0"
End Sub
 
Private Sub Command3_Click()
Dim X As String
X = Text1.Text
Text1.Text = X + "1"
End Sub
 
Private Sub Command4_Click()
Dim X As String
X = Text1.Text
Text1.Text = X + "2"
End Sub
 
Private Sub Command5_Click()
Dim X As String
X = Text1.Text
Text1.Text = X + "3"
End Sub
 
usw.