VBA script to create an interger value of the current date and time stamp

[KlayontKress]

I'm looking to modify a VBA code to create a unique date and time stamp. The code I have so far is

    Sheets("Route Import").Cells(x, 1).Value = Int(CDbl(Now()))

This gives me the integer value of the date but I also need the time because the macro I'm using will go to the next line and create a route id for the next person and Ineed unique values across days. Right now, the existing code

Sheets("Route Import").Cells(x, 1).Value = Round(((999 - 100 + 1) * Rnd + 100), 0) & Round(((999 - 10 + 1) * Rnd + 100), 0) & Round(((999 - 10 + 1) * Rnd + 100), 0)

is generating "Random" numbers that are repeating day to day and this is messing up the scheduling program because it's trying to add what is supposed to be a new day's route information to a past day's route because the route id's are the same. I found the code that was generating this number and had the idea of using the date time stamp to generate a unique number number but I lack the knowledge on how to get the date and time together in an integer.

The code to generate this route id repeats until it creates a unique route id for all of the service techs that day so I need it to pull the current system time to a fraction of a second (a millisecond may work) so that if it can process multiple times in a single second, each entry is unique from the others.


Any help is greatly appreciated.


Thanks,

 

[Rick Rothstein]

I am late to this thread and while I skimmed the responses, I did not try to fully digest them. With that said, would the following produce the result the OP was after...

MsgBox [SUBSTITUTE(INT(NOW())&TEXT(NOW(),"hhmmss.0"),".","")]