codice:
'Crea la struttura
Type Utente
    Nome As String
    Pass As String
    Soprannome As String
    Compleanno As Date
End Type

'...

'Dichiara la collection
Dim c As New Collection
'Crea una variabile temporanea per i dati del nuovo utente
Dim u As Utente
'Imposta i vari campi
u.Nome="Gino"
u.Pass="password"
'eccetera
'Aggiunge i dati dell'utente "nomeutente" alla collezione
c.Add u, "nomeutente"

'...

'Recupera i dati dell'utente "nomeutente"
u = c.Item("nomeutente")