Picking a temporarily unique number in VB.NET

Dim longTime As Long = Now.ToFileTimeUtc()
Dim uniqueID As Integer = longTime Mod 1000000000