怎么在文件后面追加内容呀?在线等待

向各位大虾求救!我不会vb有个问题想请教大家，我想在txt文件后面追加内容，怎么做呀？
strFileName = "Log.txt"
    strFilePath = App.Path & "\" & strFileName
'    Form1.strPath = strFilePath
    Open strFilePath For Output As #intfile
我用的是上面的方法