Как записать в последнюю строку файла? - VBA

Формулировка задачи:

Здравствуйте, есть файл тхт с данными "допустим" 1111 2222 3333 и есть входящие данные 4444 мне нужно что бы в итоге вышло 1111 2222 33334444 Спасибо

Решение задачи: «Как записать в последнюю строку файла?»

textual
                            Листинг программы 
                        

                            Sub tttt()
AppendTXTfile "C:\Temp\test.txt", "4444"
End Sub
 
 
Function AppendTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
    On Error Resume Next: Err.Clear
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.openTextFile(filename, 8)
    ts.Write txt: ts.Close
    SaveTXTfile = Err = 0
    Set ts = Nothing: Set fso = Nothing
End Function
                        