public type GAE
name as string
zeit as integer
anzahl as integer
end type

private GAEDaten() as GAE
 
public function getDaten() as GAE()
getDaten = GAEDaten
end function

public sub lesen()
dim daten() as GAE
 
daten = obj.getDaten
end sub