' Array aus Datei einlesen:
'==========================
Public Function ReadArray(ByVal sFile As String) As Variant
  Dim DateiNr As Integer
  Dim nCount As Long
  Dim vArray As Variant
 
Debug.Print "Öffne Datei " & sFile
 
  ' Datei im BinaryMode öffnen
  If Len(Dir$(sFile)) > 0 Then
    DateiNr = FreeFile
    Open sFile For Input As #DateiNr
 
      'Anzahl Elemente lesen
      nCount = 0
      Do While Not EOF(DateiNr)
        Line Input #DateiNr, line
        nCount = nCount + 1
      Loop
    Close #DateiNr
 
Debug.Print "Die Datei hat " & nCount & " Zeilen."
 
    Open sFile For Binary As #DateiNr
        ' Array dimensionieren und einlesen
        ReDim vArray(1 To nCount)
        Get #DateiNr, , vArray   'Hier gibts einen Fehler!!!!
    Close #DateiNr
  End If
 
  ReadArray = vArray
End Function