Extract Email Text to Excel

[snb]

there surely is:

sub M_snb()
  sn=split(createobject("scripting.filesystemobject").opentextfile("c:\temp\Email Text.txt").readall,vbcrlf)

  for j=1 to 3
    c01=c01 & vblf & join(filter(sn,choose(j,"report","store","comment"),vblf)
  next

  msgbox c01
End sub