Private Sub Command1_Click()
Dim strData As String, straLines() As String
Dim lngZeilen As Long, i As Long
Dim strDatei As String
 
strDatei = "D:\test.dat" 'anpassen !
 
' Datei öffnen und Inhalt lesen
    Open strDatei For Binary Access Read As #1
      strData = Space$(LOF(1))
      Get 1, , strData
    Close #1
 
' Inhalt zeilenweise aufsplitten
straLines = Split(strData, vbCrLf)
 
' Anzahl der Zeilen erfahren
lngZeilen = UBound(straLines)
 
' Datei wieder öffnen und Inhalt mit Zeilennummer schreiben
    Open strDatei For Output As #1
        For i = 1 To lngZeilen - 1
            Print #1, i & " " & straLines(i)
        Next
    Close #1
 
End Sub