Con esto pueden bloquear el teclado:


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


y se usa asi:

BlockInput True