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:
EDITO: O puedes crear propiedades si quieres manejar las filas de textboxes por separado...
Saludos
Y también podrías concatenar el texto para no estar abriendo/cerrando el archivo cada vez:
Código (vbnet) [Seleccionar]
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...
Código (vbnet) [Seleccionar]
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
Código (oobas) [Seleccionar]
MsgBox(Me.Text1)
Saludos