(VB6) creazione indice univoco

[sal21]

Vorrei creare un indice univoco del tipo XXXXXX-XXXXXX-XXXXXX-XXXXXX dove al posto delle X ci siano caratteri alfanumerici, quindi numeri e lettere...
Forse usando lo statement Time hhmmss eccc...????
Boh?