Visual Basic - Pasar una struct a una fncion

Dim clase() As empresa
Private Type empresa
nom As String
CIF As String
Poblacio As String
dia As Integer
End Type

tengo esta structura definida y kiero pasrla a una funcion

Private Sub Command2_Click()
creatmpllista (clase())
endsub

Es correcto lo ke estoy escribiendo kiero pasrle toda l'arrya

y esta es la funcion ke la recibe

Function creatmpllista(clase())

For x = 0 To y
List1.AddItem .CIF(y)
Next

End Function

como ven kiero ke me anada a un list el cif de las empresas
pero como se qual es el fna lde l'arrya

gracias x su ayuda

La estructura de datos es posible utilzarla tal cual la estás planteando, siempre y cuando no se pase de un módulo público a un módulo Privado.
Si es el mismo módulo no hay inconvenientes.
El valor máximo se ubtiene con la función Ubound(CIF)
y te devuelve la cantidad de datos en el array, obviamente con base 0
por lo que debés restarle un 1 para no invocar un indice fuera del rango