Dim strZeilen() As String
 
Const FILE_DATEINAME As String = "DATEINAME"
 
Private Sub Form_Load()
  Dim sngZeilen As Single
 
  Open FILE_DATEINAME For Input As #1
  Do Until EOF(1)
    ReDim Preserve strZeilen(sngZeilen)
    Line Input #1, strZeilen(sngZeilen)
   sngZeilen = sngZeilen + 1
  Loop
  Close #1
End Sub