Option Explicit
Dim x As Integer, y As String, z As Integer, zz As Integer

Private Sub Cmd_Click(Index As Integer)
x = Calc.Caption
y = Cmd(Index).Caption
End Sub

Private Sub Command1_Click(Index As Integer)
Calc.Caption = Command1(Index).Caption
If Len(x) > 0 Then
z = x & y & Val(Calc.Caption)
Calc.Caption = z
End If
End Sub


please insert as you would