by alexK (9 Submissions)
Category: VB function enhancement
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Fri 5th February 2021
Rating: (1 Votes)
Generates an alpha based ID number.
Function AlmostUniqueID()
Randomize
for iCtr = 1 to 8
sChar = Chr(Int((90 - 65 + 1) * Rnd) + 65)
sID = sID & sChar
Next
AlmostUniqueID = sID
End Function