Sub splitText()

Dim sFilePath As String
Dim iFile As Integer
Dim sInput As String
Dim rayText() As String
Dim L As Long
' assumes texfile is called data.txt and is on the desktop
sFilePath = Environ("USERPROFILE") & "\Desktop\data.txt"
iFile = FreeFile
Open sFilePath For Input As iFile
sInput = Input(LOF(iFile), iFile)
Close iFile
rayText = Split(sInput, " ")
For L = 0 To UBound(rayText)
With ActivePresentation.Slides.Add(ActivePresentation.Slides.Count, ppLayoutTitle)
.Shapes.Title.TextFrame.TextRange = rayText(L)
End With
Next
End Sub