Private Type TestType
      Name As String * 50
      Vorname As String * 40
      Datum As Date
End Type
 
Private Function Übergabe() As TestType
    Übergabe.Name = "CyberLord"
    Übergabe.Vorname = "Hugo"
    Übergabe.Datum = CVDate("04.02.2002")
End Function