How can i use timer?

[gavio]

Open it, read it, add something and write it. For example:

Dim iFF As Integer
Dim sFile As String
Dim sContents As String
 
    iFF=FreeFile
    sFile="c:\test.txt"
 
                'read it
        Open sFile For Input As #iFF
            sContents=Input(LOF(iFF),iFF)
        Close #iFF
 
                'write what was before and add something new
        Open sFile For Output As #iFF
                        Print #iFF, sContents
            Print #iFF, "something new"
        Close #iFF

edit: or like smuX suggested