Sub AppendText()
        Dim Filename As String = "yourFileName.txt"
        Dim TextToAdd As String
        Dim strWriter As System.IO.StreamReader

        'open your file in append mode for recieving the content of the other file
        Dim Fs As FileStream = New FileStream(Filename, FileMode.Append, FileAccess.Write, FileShare.None)
        'opening the second file which has the text you want to add to the first file
        strWriter = File.OpenText("c:\temp\test.txt")
        'reading the text and puting it to a var
        TextToAdd = strWriter.ReadToEnd()
        'close the second file
        strWriter.Close()
        'appending the second file's text to the first one
        Dim SwFromFileStream As StreamWriter = New StreamWriter(Fs)
        SwFromFileStream.Write(TextToAdd)
        SwFromFileStream.Flush()
        SwFromFileStream.Close()
    End Sub

DO WHILE .T.
      ME.Work()
ENDDO