Read and write to file using VB6

    outfiledir = mstroutfil
    myfile2 = FreeFile
    If outfiledir = "" Then
    MsgBox "Please Select File ", Process File Error"
    GoTo 1
    End If

Open inpfiledir For Input As #myfile
    Do While Not EOF(myfile)
    Input #myfile, x, y, z
    
    xc = x
    yc = y
    zc = Round(-z, 2)
    Loop
Close #myfile
    
    
Open outfiledir For Output As #myfile2
    Do While Not EOF(myfile2)
    Write #myfile2, xc, yc, zc
    Loop
    Close #myfile2
1
End Sub

Open inpfiledir For Input As #1
Dim oneline, arr1(), arr2(), arr3(), temp() As String
Dim tempCounter As Integer
tempCounter = 1
ReDim arr1(1)
ReDim arr2(1)
ReDim arr3(1)

'Read in data one line at a time, split the input into an array and write data to three arrays
While Not EOF(1)
    Line Input #1, oneline
    If InStr(oneline, ",") > 0 Then
        temp = Split(oneline, ",")
        If tempCounter > 2 Then
            ReDim Preserve arr1(UBound(arr1) + 1)
            ReDim Preserve arr2(UBound(arr2) + 1)
            ReDim Preserve arr3(UBound(arr3) + 1)
        End If
        
        arr1(tempCounter - 1) = temp(0)
        arr2(tempCounter - 1) = temp(1)
        arr3(tempCounter - 1) = temp(2)
        
        tempCounter = tempCounter + 1
    End If
Wend
Close #1

'Now write data out to new file
Open outfiledir For Output As #1

'loop through arrays writing data to new file
For tempCounter = 0 To UBound(arr1)
    Print #1, arr1(tempCounter) & "," & arr2(tempCounter) & "," & arr3(tempCounter)
Next
Close #1


'Or write it out backwards
Open outfiledir For Output As #1

For tempCounter = UBound(arr1) To 0 Step -1
    Print #1, arr1(tempCounter) & "," & arr2(tempCounter) & "," & arr3(tempCounter)
Next
Close #1