Functionality: Create 5 digit random number in vb script

Functionality: Create 5 digit random number
'**************************************************************
Public Function CreateFiveDigitRandomId()
tTime = replace(Time, ":", "")
tLen = Len(tTime) - 2
tTime = Trim(left(tTime, tLen))
intLowNumber = Right(tTime, 2)
tLen = Len(tTime)
If tLen > 5 Then
tTime = Trim(Right(tTime, 5))
End If
intHighNumber = tTime intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
If Len(intNumber)> 4 Then
intNumber = Left(intNumber, 4)
End If
dtDay = Day(Date)
If len(dtDay) = 2 Then
dtDay = Right(dtDay, 1)
intNumber = intNumber & dtDay
Else
intNumber = dtDay & intNumber
End If
glbRandId = intNumber
End Function
'********************************************************************