Type EGType
    Maus As String
    Tastatur As String
End Type
Type Computer
    Zubehoer() As String
    Festplatten() As String
    Eingabegeraete As EGType
End Type
Dim PCs As Computer

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)