This is odd then. I have checked everything I know to check. The routine runs start to finish and the Msgbox gives the indication data was transferred. But there is no data being transferred. If I remove the reccount variable (back to what it was previously), it will append the data. I'm not sure what gives if OBP has it running. And I did declare reccount as an integer.

Appendsub:    MsgBox "current file appending to - " & FileFound & " from - " & FileName
    reccount = 0
    Open firstfile For Input As #1
    Open sDest & FileFound For Append As #2
    datastring = ",,,"
    Do Until EOF(1)
        Line Input #1, datastring
        If reccount > 1 Then
            Print #2, datastring
        End If
        reccount = reccount + 1
    Loop
    Close #1
    Close #2
    MsgBox "data transferred to " & FileFound
    Return