Сохранение данных Chart

    Private Sub LoadData2_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        OpenFileDialog1.FileName = "*.txt"
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try
                Dim fn As String = OpenFileDialog1.FileName
                Dim dt() As String = File.ReadAllLines(fn)
                ReDim dt1(dt.Length - 1) : ReDim dt2(dt.Length - 1) : ReDim dt3(dt.Length - 1)
                Dim i As Integer
                For Each s As String In dt
                    Dim dd() As Double = s.Split({Chr(32)}, StringSplitOptions.RemoveEmptyEntries).Select(Function(x) CDbl(x)).ToArray()
                    dt1(i) = dd(0)
                    dt2(i) = dd(1)
                    dt3(i) = dd(2)
                    i += 1
                Next
                Button2.Enabled = True
                Button4.Enabled = True
                Button5.Enabled = True
            Catch Ex As Exception
                MsgBox(Ex.Message)
            End Try
        End If
    End Sub

            Select Case sName
                Case "Data 1"
                    .AxisY.Interval = 0.5
                Case "Data 2"
                    .AxisY.Interval = 0.5 '0.2
                Case "Data 3"
                    .AxisY.Interval = 50 '2
            End Select