Private Sub Command1_Click() 
     Dim  sFileText As String
     Dim vErg As Variant
     Dim n As Long
 
     Open "c:	est	est.txt" For Input As #1 
           sFileText = Input(Lof(1), #1)
     Close #1 
 
     vErg = Split(sFileText,vbCrLf)  
     n = Ubound(vErg)
 
     'Speicher aufräumen:
      sFileText = vbNullChar
      If IsArray(vErg) Then Erase vErg
 
End Sub