Extract Data from Notepad file into excel

without a bonus:

Sub snb()
  sn = Split(CreateObject("Scripting.FileSystemObject").opentextfile("G:\OF\adressen 002.csv").readall, vbCrLf)
  
  For j = 25 To UBound(sn) Step 6
    Cells((j - 25) \ 6 + 1, 1).Resize(, 4) = Array(sn(j + 1), sn(j), sn(j + 2), sn(j + 3))
  Next
end sub