Private Function DoIt() As Date
Dim dstart As Date
Dim dend As Date
Dim off As Integer
Dim rand As Single
 
dstart = "21.06.2009 13:50"
dend = "22.06.2009 19:25"
 
off = DateDiff("n", dstart, dend)
 
Randomize Timer
rand = Rnd
DoIt = DateAdd("n", rand * CDbl(off), dstart)
End Function

LG,Robert