如何设置两个或是一个button点击之间的时间间隔呢

怎么设置两个或是一个button点击之间的时间间隔呢
在我的vba当中主要有两个sub一个是传数据并运算数据，另一个是把运算的结果传回来的，由于运算需要消耗一定时间，获取结果一定要在运算结束之后。原本是有两个button，分别对应着两个sub，担心的就是用户连续点击两个button，导致没有时间间隔。我想是不是可以在两个button之间设置一个时间间隔来解决呢，除了这种您有啥看法呀 vba excel
[解决办法]
Private Sub CommandButton1_Click()
    If CommandButton1.ForeColor = 1 Then
        MsgBox "程序正在处理中，请稍候。。。      ", 16, "提示"
    Else
        CommandButton1.ForeColor = 1
        If CommandButton1.Caption = "传数据并运算数据" Then
            MsgBox "程序正在传数据并运算数据　　　　　　", 64, "提示"
            
            '处理过程
            t = Timer
            Do While Timer - t < 10
                DoEvents
            Loop
            CommandButton1.Caption = "把运算的结果传回来"
        ElseIf CommandButton1.Caption = "把运算的结果传回来" Then
            MsgBox "程序正在把运算的结果传回来　　      ", 64, "提示"
            
            '处理过程
            t = Timer
            Do While Timer - t < 10
                DoEvents
            Loop
            CommandButton1.Caption = "保存数据"
        Else
            MsgBox "程序正在保存数据"
            '处理过程
            t = Timer
            Do While Timer - t < 10
                DoEvents
            Loop
            CommandButton1.Caption = "传数据并运算数据"
        End If
        CommandButton1.ForeColor = 0
    End If
End Sub