Private Type Data1
    DATUM As String * 8             
    AP As String * 4                
    MASTERDAT As String * 8         
    MATNR As String * 12            
    MD1_DREH As Long                
    MD2_DREH As Long                
    MD3_DREH As Long                
    MD4_DREH As Long                
    PD1_DREH As Long                
    PD2_DREH As Long
    .
    .
    .                
End Type
 
Private Type Data2
    FA As String * 12               
    PERS As String * 7              
    Filler As Byte                  
    .
    .
End Type
 
Private Type MainData
LGNR as String * 30
Test1 as Data1
Test2 as Data2
End Type
 
Public Daten as MainData