Esta es una idea de como blokear el teclado por cierto lo puedes aumentear 

Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long



Private Sub Form_Load()
    Timer1.interval = 1000
    BlockInput True
End Sub

Private Sub Timer1_Timer()
    Static contador As Integer
    contador = contador + 1
    If contador = 10 Then BlockInput False: MsgBox "timer"
End Sub
si alguien puede contribuir con algo en el codigo se lo agradecere :shocked: