From a file: 
Sub blah()
Set Destn = ActiveSheet.Cells(1)
Set ts = CreateObject("Scripting.FileSystemObject").opentextfile("C:\Users\Public\Documents\dummy sentences.txt")
bt = Application.Trim(ts.readall)
ts.Close
at = Replace(Replace(Replace(Replace(bt, "...", "…¬"), ".", ".¬"), "?", "?¬"), "!", "!¬")
at2 = Split(at, "¬")
For i = 0 To UBound(at2)
  at2(i) = Application.Trim(at2(i))
  at2(i) = Replace(at2(i), "…", "...")    'optional to replace an ellipsis with 3 dots.
  If Len(at2(i)) = 0 Then at2(i) = "¬"
Next i
at3 = Filter(at2, "¬", False)
Destn.Resize(UBound(at3) + 1).Value = Application.Transpose(at3)
'Set Destn = Destn.Offset(UBound(at3))
End Sub
There's only one line in the text file you supplied so I don't know if it will work if there are more lines.