Private Type Unko
　 val1 As Integer
　 val2 As Long
　 val3() As Byte
End Type

Private Sub Command1_Click()
　 Dim col As New Collection
　 Dim v As Unko
　 col.Add v
End Sub