Dim i As Integer = 0
        Dim filepath As String = IO.Path.Combine("D:Logs", Textbox13.Text + i.ToString() + ".txt")
Using sw As New StreamWriter(filepath)
            sw.WriteLine(TextBox13.Text)
            sw.WriteLine(TextBox1.Text)
            sw.WriteLine(TextBox2.Text)
            sw.WriteLine(TextBox3.Text)
            sw.WriteLine(TextBox4.Text)
            sw.WriteLine(TextBox5.Text)

            sw.WriteLine(TextBox7.Text)

            sw.WriteLine(TextBox9.Text)
            sw.WriteLine(TextBox10.Text)
            sw.WriteLine(TextBox11.Text)
            sw.WriteLine(TextBox12.Text)