public type tyKontakt
    Festnetz as String
    Handy as string
   EMail as string
end type
 
Public Type User
      Name as string
     Vorname as string 
    Strasse as string
    Hausnummer as string
   PLZ as long
  Ort as string
    Telefon as tyKontakt
end type
 
'Stucktur der Variablen zuweisen
dim PersDat as User
 
'Daten zuweisen
with Persdat
    .Name="Meier"
     .Vorname="Müller"
    .Telefon.Festnetz="0800123456"
    .Telefon.Email="Meier@Anbieter.de"
end with