Type test_struc
  text1   As String * 15
  wert1   As Long
  text2    As String * 30
  text3    As String * 30
  knz       As Boolean
End Type
 
dim test as test_struc

  test.text1 = ""
  test.text2 = ""
  test.text3 = ""
  test.wert1 = 0
  knz = false