To your 2nd question :
Dim value(,) As Double = New Double(,) {{0, 0}}
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim maxDim0 As Integer = UBound(value, 1)
Dim maxDim1 As Integer = UBound(value, 2) + 1
ReDim Preserve value(maxDim0, maxDim1)
value(maxDim0, 0) = Double.Parse(TextBox2.Text)
value(maxDim0, 1) = Double.Parse(TextBox3.Text)
For i As Integer = 0 To UBound(value, 1)
TextBox1.Text &= String.Format("{0}{1}{2}", value(i, 0).ToString.PadLeft(15), value(i, 1).ToString.PadLeft(15), vbNewLine)
Next
End Sub