Insira no evento click do seu botão.

Segue exemplo

  Dim corBotao As Double
    
    With SeuCommandBotao
        
        corBotao = .BackColor
        
        For i = 1 To 5
            .BackColor = RGB(0, 128, 0)
            
            Pausa 0.5
            
            .BackColor = corBotao
            
            Pausa 0.5
            
            .BackColor = RGB(0, 128, 0)
        Next
        
        .BackColor = corBotao
        
    End With

Aqui a função que pausa os intervalos das alterações de cores

Public Function Pausa(NumberOfSeconds As Variant)
    On Error GoTo Erro
    Dim PauseTime As Variant
    Dim Start As Variant
    
    PauseTime = NumberOfSeconds
    Start = Timer
    Do While Timer < Start + PauseTime
        DoEvents
    Loop
    Exit Function
    
Erro:
    MsgBox Err.Number, Err.Description, Erl
    
End Function