在一个txt中 用分割线分割的文本片段 分离成单个txt文件

分析文本1.txt文件 内容：

00000000000000000
00000000000000000
00000000000000000
00000000000000000
00000000000000000
00000000000000000
-----------------
11111111111111111
11111111111111111
11111111111111111
11111111111111111
11111111111111111
11111111111111111
-----------------
22222222222222222
22222222222222222
22222222222222222
22222222222222222
22222222222222222
22222222222222222
-----------------
33333333333333333
33333333333333333
33333333333333333
33333333333333333
33333333333333333
33333333333333333
-----------------
44444444444444444
44444444444444444
44444444444444444
44444444444444444
44444444444444444
44444444444444444
-----------------
55555555555555555
55555555555555555
55555555555555555
55555555555555555
55555555555555555
55555555555555555
-----------------
66666666666666666
66666666666666666
66666666666666666
66666666666666666
66666666666666666
66666666666666666
-----------------
77777777777777777
77777777777777777
77777777777777777
77777777777777777
77777777777777777
77777777777777777
-----------------
88888888888888888
88888888888888888
88888888888888888
88888888888888888
88888888888888888
88888888888888888
-----------------
99999999999999999
99999999999999999
99999999999999999
99999999999999999
99999999999999999
99999999999999999

程序代码：

Imports System.IO
Public Class Form1
    Dim z As Integer = 2
    Dim code As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim stream As FileStream
        Dim read As StreamReader
        stream = New FileStream("C:\Users\lenovo\Desktop\1.txt", FileMode.Open)
        read = New StreamReader(stream)
        While read.Peek() > 0  '一行一行读
            code = read.ReadLine()
            If code.IndexOf("-----") <> -1 Then 'code.IndexOf("-----") <> -1 表示存在--------样的字段
                z += 1
            Else
                zxl()
            End If
        End While
        stream.Close()
        read.Close()
    End Sub
    Sub zxl()
        Dim fw As New StreamWriter("C:\Users\lenovo\Desktop\" & z & ".txt", True) 'true 为append追加不追加记录
        fw.WriteLine(code)
        fw.close()
    End Sub
End Class