Option Explicit
 
Private Declare Function SafeArrayGetDim Lib "oleaut32" ( _
 pArray() As Any) As Long
 
Private Type ErrorStruct
    file    As String
    field   As String
    type    As String
End Type
 
Dim DiffValues() As ErrorStruct
 
Private Sub Command1_Click()
 
    If SafeArrayGetDim(DiffValues) Then
        MsgBox "dimensioniert"
    Else
        MsgBox "undimensioniert"
    End If
 
End Sub