La misma pregunta la hicieron dentro del foro, busca, ok. encontre esto:
Private Sub Form_Load()
If Format(Now, "hh") <= "09" Then
If Format(Now, "hh") = "09" Then
If DatePart("n", Format(Now, "hh:mm")) > 15 Then
MsgBox "Acceso Denegado", vbCritical, "Validación Entrada"
End If
End If
Else
MsgBox "Acceso Denegado", vbCritical, "Validación Entrada"
End If
End Sub
Que te sirva como guia, tienes que entender un poco.