Public Type GAE
    name As String
    zeit As Integer
    anzahl As Integer
End Type[/code}
 
Die Klasse benützt den UDT dann:
 
<pre><code>Private GAEDaten() As Variant
 
Public Function getDaten() As Variant()
     Dim g As GAE
     ReDim GAEDaten(1)
 
     g.anzahl = 1
     g.name = "Test"
     g.zeit = Now
 
     GAEDaten(0) = g
     getDaten = GAEDaten()
End Function