Public Class Form1
    Private myArray(4) As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        DeleteData()
        TextBox1.Text = " "
        TextBox2.Text = " "
        TextBox4.Text = " "
        TextBox5.Text = " "
        TextBox6.Text = " "
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        SetData()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        ShowData()
    End Sub
 
    Private Sub ShowData()
        TextBox3.Text = myArray(0) & " " & myArray(4)
    End Sub
 
    Private Sub SetData()
        myArray(0) = TextBox1.Text
        myArray(1) = TextBox2.Text
        myArray(2) = TextBox4.Text
        myArray(3) = TextBox5.Text
        myArray(4) = TextBox6.Text
    End Sub
 
    Private Sub DeleteData()
        myArray(0) = ""
        myArray(1) = ""
        myArray(2) = ""
        myArray(3) = ""
        myArray(4) = ""
        ShowData()
    End Sub
 
    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox3.TextChanged
 
    End Sub
 
    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox4.TextChanged
 
    End Sub
 
    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox5.TextChanged
 
    End Sub
 
    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox6.TextChanged
 
    End Sub
End Class