Writing to a File Problem

[Semajthewise]

Hi all I am having trouble with this code to write a short bit of info into an existing file. Heres what I have

Dim MyString As String
        Dim ReadString As String
        Dim iFr As Short
        iFr = FreeFile()
        ReadString = CurDir() & "\Globals.vb"
        FileOpen(iFr, 1, OpenMode.Append)
        MyString = "UnlockAdd = True"
        FilePut(iFr, MyString)
        FileClose(iFr)
 

I ran it with the debugger to test it and I get the error message
'System.IO.IOException' occurred in microsoft.visualbasic.dll"
"Bad File mode"
The breakpoint is on the line;
FilePut(iFr, MyString)
What am I doing wrong?
Is there another way to do this?
Any help would be greatly appreciated


Thanks in advance,
James