Imports System.IO
Public Module Module1
Public Sub Main()
Dim oSR As New StreamReader("D:\file 1\colour.txt")
Dim sLine(13)
For i = 0 To 13
sLine(i) = oSR.ReadLine
Next
Dim ioSR As New StreamWriter("D:\file 1\colour 2.txt")
For i = 0 To 11 Step +2
ioSR.WriteLine(sLine(i) & " " & sLine(i + 1))
Console.ReadLine()
ioSR.Close()
End Sub
End Module