Na propriedade KeyPreview do form coloque True, na propriedade Interval do timer coloque 1000 (um segundo)
Coloque os eventos e códigos abaixo:
Public Tempo As Date
Private Sub Form_KeyPress(KeyAscii As Integer)
Tempo = Now
End Sub
Private Sub Form_Load()
Tempo = Now
End Sub
Private Sub Timer1_Timer()
Dim Tempo2, t1, t2
Tempo2 = Now
t1 = Hour(Tempo2) * 10000 + Minute(Tempo2) * 100 + Second(Tempo2)
t2 = Hour(Tempo) * 10000 + Minute(Tempo) * 100 + Second(Tempo)
If (t1 - t2) > 20 Then
'aqui só entra quando ficar 20 segundos sem digitar nada
'põe aqui o código que preferir, msgbox, unload, ...
End If
End Sub
...testa aí...