Private Sub Command1_Click() Open "c:\data\HDR_teko_PAN_16.csv" For Input As 1 For i = 1 To 2500 Input #1, cfile, imatype, imacode, ncol, nrow, cstring, cColor, col, row, col_s, row_s, mcol, mrow, c, ppax, ppay, ha, hb, hc, hd, he, hf, aa, ab, ac, ad, ae, af, omega, phi, kappa, x0, y0, z0, sun1, sun2, astring, num_of_add, btype, bstring, bwidth, bheight, ctype, cstringi, cwidth, cheight Open cfile For Output As 2 Print #2, imatype Print #2, imacode Print #2, ncol Print #2, nrow Print #2, """" & cstring & """" Print #2, cColor Print #2, col Print #2, row Print #2, col_s Print #2, row_s Print #2, mcol Print #2, mrow Print #2, c Print #2, ppax Print #2, ppay Print #2, ha Print #2, hb Print #2, hc Print #2, hd Print #2, he Print #2, hf Print #2, aa Print #2, ab Print #2, ac Print #2, ad Print #2, ae Print #2, af Print #2, omega Print #2, phi Print #2, kappa Print #2, x0 Print #2, y0 Print #2, z0 Print #2, sun1 Print #2, sun2 Print #2, astring Print #2, num_of_add Print #2, btype Print #2, bstring Print #2, bwidth Print #2, bheight Print #2, ctype Print #2, cstringi Print #2, cwidth Print #2, cheight Close (2) Next i Close (1) End Sub