Private Sub Command1_Click()
   Dim a() As String
   Dim s As String
   Dim d As String
   Dim f As Integer
 
   f = FreeFile
   d = "H:\A.txt"              'dein TXT-file
 
   Open d For Input As f
 
      s = Input(LOF(f), f)
 
   Close f
 
   a = Split(s, vbCrLf)        'das fertige ARRAY
 
End Sub