Private Sub CommandButton1_Click()
    Const cCaption1 As String = "Do Action ONE"
    Const cCaption2 As String = "Do Action TWO"
    
    With CommandButton1
    
        If .Caption = cCaption1 Then
            MsgBox "Action ONE code here"
           .Caption = cCaption2
        Else
            MsgBox "Action TWO code here"
            .Caption = cCaption1
        End If
    
    End With
    
End Sub