trying to run the following code on an EXE (Actually Excel)
and Im getting the following error
Error 75
Path/File Access Error??

if I take off the Access Read Write etc...it works...until it hits PUT

any clues?

[Highlight=VB]
Private Sub ReverseByteNumbers(ByVal FileName As String)
Dim K As Long, byteArr() As Byte, FL As Integer

FL = FreeFile
Open FileName For Binary Access Read Write Lock Read Write As FL

ReDim byteArr(LOF(FL) - 1)
Get FL, , byteArr

For K = 0 To UBound(byteArr)
byteArr(K) = Not byteArr(K)
Next K

Put FL, 1, byteArr

Close FL
End Sub
[vbcoce]