[color=green]' Benötigte API-Deklaration
Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" _
  Alias "SafeArrayGetDim" (pArray() As Any) As Long

Dim myArray() As String
...
 
If SafeArrayGetDim(myArray) = 0 Then
  ' Array ist noch nicht dimensioniert
  ReDim myArray(10)
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de