ファイルの末尾に文字列を追記する。(System.IO.File.AppendAllText)

ファイルの末尾に文字列を追記するにはSystem.IO.File.AppendAllTextメソッドを使用します。（いくつか方法がありますが最も簡単な方法）

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim str1 As String = "Hello World"

        System.IO.File.AppendAllText("\\server\a.txt", str1)

    End Sub
End Class

.NETから出力される文字は文字コードがUTF-8であるため文字化けが発生することがあります。Windows（日本語版）の標準文字コードSHIFT-JISであるためです。AppendAllTextの引数で、文字コードを指定することができるのでSHIFT-JISで出力が必要な箇所は以下とします。

System.IO.File.AppendAllText("\\server\a.txt", str1, System.Text.Encoding.GetEncoding("Shift-Jis"))