ใครเชี่ยวชาญทางด้าน VB.NET ช่วยชี้แนะ เรื่องของ Array หน่อยนะครับ

Dim ary(1)
        Dim sum As Short
        If Me.txtnum.Text <> "" Then
            ReDim ary(Me.txtnum.Text)
            For i As Short = 0 To Me.txtnum.Text - 1
                ary(i) = (i + 1)
            Next

            For i As Short = 0 To Me.txtnum.Text - 1
                sum += ary(i)
            Next
            MessageBox.Show(sum)
End If

Dim i As Integer
        Dim sum As Integer
        Dim arr(i) As Integer
        Dim bar As Double
        Dim sta As Double

        Console.WriteLine("Enter Nmubers Arr")

        ReDim arr(Console.ReadLine())

        Console.WriteLine("Enter Nmubers")

        For i = 0 To arr.Length - 1
            arr(i) = Console.ReadLine()
        Next

        For i = 0 To arr.Length - 1
            sum = sum + arr(i)
        Next

        For i = 1 To arr.Length - 1
            bar = sum / arr(i)
        Next


        For i = 1 To arr.Length - 1
            sta = (bar - sum) ^ 2 / arr(i)
        Next

        Console.WriteLine("sum=" & sum)

        Console.WriteLine("Bar = " & bar)

        Console.WriteLine("Stan = " & sta)

Public Class Form1

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Select Case Asc(e.KeyChar)
            Case 48 To 57 ' key โค๊ด ของตัวเลขจะอยู่ระหว่าง48-57ครับ 48คือเลข0 57คือเลข9ตามลำดับ
                e.Handled = False
            Case 8, 13, 46 ' ปุ่ม Backspace = 8,ปุ่ม Enter = 13, ปุ่มDelete = 46
                e.Handled = False

            Case Else
                e.Handled = True
                MessageBox.Show("สามารถกดได้แค่ตัวเลข")
        End Select
  
    End Sub