Private lClassDebugID As Long

Private Sub Class_Initialize()
lClassDebugID =  0 
End Sub

Public Function NewKeyForAll() As String
Dim temp As String
On Error GoTo Over
lClassDebugID = lClassDebugID +  1 
temp = CStr(lClassDebugID) & CStr(Now) & CStr(( 32000  * Rnd) +  1 )
temp = Replace(temp, ".", "",  1 , - 1 , vbTextCompare)
temp = Replace(temp, ":", "",  1 , - 1 , vbTextCompare)
temp = Replace(temp, " ", "",  1 , - 1 , vbTextCompare)
NewKeyForAll = Replace(temp, ",", "",  1 , - 1 , vbTextCompare)
Exit Function
Over:
lClassDebugID =  0 
Resume Next
End Function