Option Explicit Dim e As String Dim f As String Dim op As String Dim chk As Integer Private Sub cmdAC_Click() e = "" f = "" op = "" txtDisp.Caption = "0" End Sub Private Sub cmdEq_Click() If op = "" Then e = str(-(Val(e))) txtDisp.Caption = e Else f = str(-(Val(e))) txtDisp.Caption = f End