Dim nPos As Long
Dim nCount As Long
Dim i As Long
 
nCount = UBound(Array)
 
' 5. Element löschen
nPos = 5
For i = nPos To nCount - 1
  Array(i) = Array(i + 1)
Next i
ReDim Preserve Array(nCount - 1)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de