¿ Eso como para que ?
1.- A mi se me ocurre que coloques un timer con un interval deseado (este interval está en milisegundos es decir 1000 ms = 1 s), la propiedad enabled=false, luego con un command1 puedes:
Private Sub Command1_Click()
Form1.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Form1.Enabled = True
Timer1.Enabled = False
End Sub
2.- Ahora si lo que en realidad deseas es desactivar el teclado, en el mismo form anterior podrías colocar este otro código:
Dim Band as Boolean
Private Sub Command1_Click()
band=false
Timer1.Enabled = True
End Sub
Private Sub ObjetoDeseado_KeyPress(KeyAscii As Integer)
if not Band then Keyascii=0
End Sub
Private Sub Timer1_Timer()
Form1.Enabled = True
Timer1.Enabled = False
End Sub
Donde el objeto deseado puede ser un botón, cuadro de texto, formulario, etc.. Espero te sirva...!