Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'text mit Vorlage füllen
        Dim text As String = Textvorlage1(TextBox1.Text, TextBox2.Text, _
          TextBox3.Text)
        'text speichern
        IO.File.WriteAllText("d:\test.txt", text)
    End Sub
 
    Private Function Textvorlage1(ByVal teil1 As String, ByVal teil2 As String, _
      ByVal teil3 As String) As String
        Dim sb As New System.Text.StringBuilder
        sb.Append("Text ohne Ende ")
        sb.Append(teil1)
        sb.AppendLine(" ...")
        sb.AppendLine("Noch mehr Text ...")
        sb.AppendLine(teil2)
        sb.Append("Viel mehr Text ")
        sb.Append(teil3)
        sb.AppendLine(" mit Ende.")
 
        Return sb.ToString
    End Function