Answer a question within timeline

I am stuck at a project and need help.

1. I have a timer in cell B2 that works fine. However, it does not start from paused time. Rest all buttons work (Start, Stop, Reset, Pause) except Resume.

2. I need a 10 seconds countdown in B4 while the main timer is running. This countdown should start after clicking on Q1 and restart after solving Q1 and then clicking on Q2 button, if the user does not answer in 10 seconds, it should run the last part (commented) of chkAnswer(). I need a code in the commented area. (Also only if possible - the countdown value should turn red when it reaches 5)

Sample file attached. Do let me know if I need to give any clarification. Thank you.

Sub chkAnswer()
    Range("D11").Value = Range("D11").Value + 1
    If Range("B7").Value = ans Then
        MsgBox "Bingo !!"
    Else
        MsgBox "Crap !!"
    End If
    Range("B6").Value = ""
    Range("B7").Value = ""
    If Range("D11").Value = 2 Then
        stopClock
        Range("D11").Value = 0
    End If
    'If answer is not given before the countdown time then
    '    MsgBox "You moron! 30 seconds is not enough for you?"
    'End If
End Sub

PS: I got the source code here http://www.youtube.com/watch?v=s2uzsj95IxQ and modified as per my requirement

If you want to pause clock - you cannot simply rely on Now() with displaying value (either include used pause time in displayed value or try for instance:

Sub runClock()
    Range("B2").Value = tCtr
      If clockOn = True Then
        tCtr = tCtr + TimeValue("00:00:01")
        Application.OnTime Now + TimeValue("00:00:01"), "runClock"
      End If
End Sub
Sub startClock()
  If chkStop = True Then
      MsgBox "Stop clock first and then start"
  Else
    clockOn = True
    chkStop = True
    tCtr = 0
    runClock
  End If
End Sub
Sub stopClock()
    clockOn = False
    chkStop = False
    Range("C3").Value = ""
    Range("C4").Value = ""
End Sub
Sub resetClock()
    If chkStop = True Then
        MsgBox "Stop clock first and then reset"
    Else
    Range("B2").Value = 0
    End If
End Sub
Sub pauseClock()
    clockOn = False
End Sub
Sub resumeClock()
    clockOn = True
    Application.OnTime Now + TimeValue("00:00:01"), "runClock"
End Sub

as for countdown - add new variables with countdown timer value and state
red color if less than 5 seconds - use conditional formatting of the cell.

The Resume button is now working. I am still struggling the countdown to work. It is not alerting user when the countdown is over