do while ...
If cdate(varHorario) > cdate(Text3) And cdate(varHorario) < cdate(Text4) Then
MsgBox "Intervalo"
Else
Hora
tbAgenda.Edit
tbAgenda!Qtd = Text5.Text
tbAgenda!DTPrevista = Date
tbAgenda!HRPrevista = varHorario
tbAgenda.Update
tbAgenda.MoveNext
i = i + 1
End If
loop