ปรึกษา VB6 แยกไฟล์แต่ละบรรทัดออกเป็นไฟล์ย่อยอีกทีครับ

Dim FSO As FileSystemObject
Dim TS As TextStream
Dim TempS As String

Dim B1 As String
Dim B2 As String
Dim B3 As String

Set FSO = New FileSystemObject
Set TS = FSO.OpenTextFile("C:\source.txt", ForReading)

Do Until TS.AtEndOfStream
    TempS = TS.ReadLine

    If Mid(TempS, 7, 2) = "B1" Then
        B1 = B1 & TempS & vbCrLf
    ElseIf Mid(TempS, 7, 2) = "B2" Then
        B2 = B2 & TempS & vbCrLf
    Else
        B3 = B3 & TempS & vbCrLf
Loop

Set TS = FSO.OpenTextFile("C:\B1.txt", ForWriting, True)
    TS.Write B1
TS.Close

Set TS = FSO.OpenTextFile("C:\B2.txt", ForWriting, True)
    TS.Write B2
TS.Close

Set TS = FSO.OpenTextFile("C:\B3.txt", ForWriting, True)
    TS.Write B3
TS.Close

Set TS = Nothing
Set FSO = Nothing

TS.Close