Private Liste1$()
 
Private Sub Command1_Click()
  Dim Dat1$, S$
  Me.MousePointer = vbHourglass
  Dat1 = App.Path & "\Daten1.txt"
  If Dir$(Dat1) <> "" Then
    Open Dat1 For Binary Access Read As #1
      S = Space$(LOF(1))
      Get #1, , S
    Close #1
    Liste1 = Split(S, vbCrLf)
  End If
  Me.MousePointer = vbDefault
End Sub

Gruss,

Zardoz