Public Declare Function SafeArrayGetDim Lib "oleaut32" (pArray() As Any) As Long
 
Public gl_Bordero() As typeBordero
 
Public Type typeBordero
    borderonr As String
    borderodatum As String
    verkehrsart As String
    relation As String
    ffname As String
    ffplz As String
    ffort As String
    wp1 As String
    wp2 As String
    plombe1 As String
    plombe2 As String
    anzfp As String
    anzgp As String
    'ab hier nur schreiben
    fahrzeugnr As String
    sendzahl As String
    packzahl As String
    brutto As String
    stpfl As String
    stfrei As String
    nachnahme As String
    zoll As String
    eust As String
    anz_sb As String
    anz_gp As String
    anz_fp As String
    anz_cc As String
    anz_ad As String
    anz_bd As String
    anz_cd As String
End Type
 
'#########################################################
Public Type typeSetG
    borderopos As String
'.
'.
    dokumentation As String
End Type
 
Public Type typeSetH
    borderopos As String
    bcqual As String
    bc As String
End Type
 
Public Type typeSetF
    borderopos As String
    packanz As String
    verpackart As String
    packanzpal As String
    verpackartpal As String
    wareninhalt As String
    zeichen As String
    gewsend As String
    stell As String
    gefahrgut() As typeSetG
    barcode() As typeSetH
End Type
 
Public Type typeSendung
    borderopos As String
'.
'.
'.
    sendpos() As typeSetF
End Type
 
Public gl_Sendung As typeSendung

If SafeArrayGetDim(gl_Bordero) = 0 Then

If SafeArrayGetDim(gl_SendIDs) <> 0 Then

If SafeArrayGetDim(gl_Sendung.sendpos) = 0 Then

Dim t as typeSendung
gl_sendung = t