Dim s As Double
Dim k1 As Double
Dim k2 As Double
Dim n As Integer
 Private Sub Command1_Click(Index As Integer)

 Select Case Index
Case 1
Text1.Text = Text1.Text & 1
Case 2
Text1.Text = Text1.Text & 2
Case 3
......................