Public Class Beispiel
 
  Structure AUFTRAG
    Dim lngAuftragsnummer As Long
    Dim strText_TextBox1  As String
    Dim strText_TextBox2  As String
    Dim strText_TextBox3  As String
    Dim strText_TextBox4  As String
    Dim strText_TextBox5  As String
    Dim strText_TextBox6  As String
    Dim strText_TextBox7  As String
    Dim strText_TextBox8  As String
    Dim strText_TextBox9  As String
  End Structure
 
   Dim zuTun As AUFTRAG
 
   Sub Load()
     'Hier muss noch Code rein
   End Sub()
   Sub Save()
     'Hier muss noch Code rein
   End Sub()
 
 
 
End Class