Testing to see how long it can go.
10k pixels was decent, gimp wouldnt save 500k ^.-


Option Explicit



Private Sub Form_Load()

Dim ReadFF As String, strtowrite As String, z%, y%

Open "C:\Documents and Settings\rub3x\Desktop\Nicks.txt" For Input As #1

ReadFF = Input(LOF(1), #1)

Close 1

y = 1: z = 1

Open "C:\file.txt" For Output As 1

Do While InStr(ReadFF, " : ") > 0

z = InStr(y, ReadFF, ":")

z = InStr(z, ReadFF, ":")

strtowrite = Mid(ReadFF, y, z - y + 1) & vbNewLine

Print #1, strtowrite

y = z + y

Loop

Close 1

End Sub