Private Sub Command1_Click()
  MsgBox DateiLesen("C:\DeineDatei.txt", 3)
End Sub
 
Private Function DateiLesen(ByVal Datei As String, Optional ByVal AbZeile As _
  Integer = 1) As String
Dim Text As String
Dim FNr As Integer
Dim Zeile() As String
Dim N As Integer
 
If AbZeile < 1 Then AbZeile = 1
 
AbZeile = AbZeile - 1
 
DateiLesen = ""
 
FNr = FreeFile
 
Open Datei For Input As #FNr
  Text = Input(LOF(FNr), #FNr)
Close #FNr
 
Zeile = Split(Text, vbCrLf)
 
If AbZeile > UBound(Zeile) Then
  MsgBox "Zeile " & CStr(AbZeile + 1) & " nicht vorhanden!", vbExclamation, _
    "DateiLesen"
   DateiLesen = ""
  Exit Function
End If
 
For N = AbZeile To UBound(Zeile)
  DateiLesen = DateiLesen & Zeile(N) & vbCrLf
Next
 
End Function