Sub SplitTextFile()

    Dim fso As Object, txt As Object, txt2 As Object
    Dim i%, c%, sLine$

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txt = fso.OpenTextFile(ThisWorkbook.Path & "\Diving_clean_900_all.txt")
    
    While Not txt.AtEndOfStream
        sLine = txt.ReadLine
        If Len(sLine) > 0 Then
            If c Mod 950 = 0 Then
                i = i + 1
                If Not txt2 Is Nothing Then txt2.Close 'Close old text file
                Set txt2 = fso.CreateTextFile(ThisWorkbook.Path & "\Diving_clean_" & i & ".txt")
            End If
            txt2.WriteLine sLine
        End If
        c = c + 1
    Wend
    txt.Close
    txt2.Close
    
    MsgBox "Well done!"

End Sub