... 4 Private Sub Button_Click() If Button.Caption = "1" Then ... Button.Caption = "2" Else Button.Caption = " ... Cancel As MSForms.ReturnBoolean) If Button.Caption = "3" Then ... Button.Caption = "4" Else Button.Caption = " ...