Can I set strings, singles, etc. For "and" Zero "for each?

Question

I have a record:

Public Loon As LonenRecord Type LonenRecord 'Algemeen Status As String * 1 TijdvakNr As Integer TijdvakBegin As String * 10 TijdvakEinde As String * 10 Key As String * 10 WerkgeversNummer As String * 3 WnRecord As Integer WerknemerNr As String * 4 AchterNaam As String * 25 Voorvoegsel As String * 15 and lots more end Type 

I want everything empty to be "" or zero

I can do:

 with Loon .TijdvakNr = 0 .WerkgeversNummer = "" etc end with 

Is there an easier way, fi for everyone or something else?

Answer 1

Assign a new value that will be in the default state.

 '// return a new LonenRecord Function ResetLonenRecord as LonenRecord: End Function 

Then:

 '// overwrite variable Loon = ResetLonenRecord()