Deberías reemplazar todo el código porque estás usando métodos de VB6 en VB.NET, FileOpen, Write, Fileclose.

Y también podrías concatenar el texto para no estar abriendo/cerrando el archivo cada vez:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button2.Click
 
    Dim [Text] As String = String.Format("{1}{0}{2}{0}{3}{0}{4}", Environment.NewLine, _
                                         TextBox1.Text & TextBox2.Text & TextBox3.Text, _
                                         TextBox4.Text & TextBox5.Text & TextBox6.Text, _
                                         TextBox7.Text & TextBox8.Text & TextBox9.Text, _
                                         TextBox10.Text & TextBox11.Text & TextBox12.Text)
 
    MsgBox([Text])
    IO.File.WriteAllText(".\Test.txt", [Text], System.Text.Encoding.Default)
 
End Sub

EDITO: O puedes crear propiedades si quieres manejar las filas de textboxes por separado...

    ReadOnly Property Text1 As String
        Get
            Return String.Format("{1}{0}{2}{0}{3}", _
                                 Convert.ToChar(Keys.Space), _
                                 TextBox1.Text, TextBox2.Text, TextBox3.Text)
        End Get
    End Property

MsgBox(Me.Text1)

Saludos

Fíjate en la ruta, se crea en el directorio actual de trabajo (WorkingDir), es decir, que si en tu applicación no modificas el parámetro del directorio de trabajo actual entonces el TXT se creará en la carpeta de compilación de tu aplicación, en la carpeta "...\...\Debug" o "...\...\Release".

PD: No creo que fuese necesario realizar una pregunta sobre donde se escribe el archivo, ¿Porque no le pones la ruta que tu quieras y ya está? xD.

Saludos.

yo diría que el 90% de los que frecuentan esta sección les apasiona la programación (el resto solo quieren que le hagan el trabajo), tampoco vivo de esto, aunque hago lo que puedo como Freelancer.

Pa eso estamos, si no has entendido algo del tobo bien no dudes en preguntar,
Un saludo!