Обработка массива и текстбокса

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim mass As New List(Of Double)
        Dim rt As Double = 0
        TextBox1.Lines = File.ReadAllLines("C:\Users\админ\Desktop\Новая папка\числа.txt")
        Dim i As Integer = TextBox1.Lines.Count
        For Each r As String In TextBox1.Lines
            mass.Add(CDbl(r))
            If CDbl(r) > 5 Then
                TextBox2.Text += r & vbNewLine
            End If
        Next
        TextBox3.Text = TextBox2.Lines.Count

Public Class Infout
    Dim v As String
    Private Sub Infout_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub read_Click(sender As Object, e As EventArgs) Handles read.Click
        Call read1(v)
    End Sub
    Private Sub read1(ByVal v As String)
        Vblvod.Text = ""
        Dim openDialog As New OpenFileDialog()
        If (openDialog.ShowDialog() = DialogResult.OK) Then
            v = System.IO.File.ReadAllText(openDialog.FileName, System.Text.Encoding.Default)
            Vblvod.Text = v
        End If
    End Sub
    Private Sub Ogran_Click(sender As Object, e As EventArgs) Handles Ogran.Click
        Dim k As Integer
        k = InputBox("Введите ограничение массива" + Str(k))
        OgranTextBox.Text = Convert.ToString(k)
        Call vvodogran(v, n, u)
    End Sub
    Private Sub vvodogran(ByVal v() As Integer, n As Integer, ByVal u As Integer)
        n = v.Length
        For i = 0 To n - 1
            For j = 0 To n - 2
                If v(j) > v(j + 1) Then
                    u = v(j)
                    v(j) = v(j + 1)
                    v(j + 1) = u
                End If
            Next j
        Next i
        For i = 0 To n - 1
            Vblvod.Text += Str(v(i))
        Next i
    End Sub
End Class

Private Sub Readf()
        TextBox1.Lines = File.ReadAllLines("C:\Users\админ\Desktop\Новая папка\числа.txt")
    End Sub
    Private Sub MS1()
        mass = New List(Of Double)
        For Each r As String In TextBox1.Lines
            mass.Add(CDbl(r))
        Next
    End Sub
    Private Sub TXTB2()
        For Each r As String In TextBox1.Lines
            If CDbl(r) > 5 Then
                TextBox2.Text += r & vbNewLine
            End If
        Next
    End Sub
    Private Sub TXTB3()
        TextBox3.Text = TextBox2.Lines.Count
    End Sub

Dim mass As List(Of Double)

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim numbers() As String
        Dim ofd As New OpenFileDialog
        If ofd.ShowDialog = DialogResult.OK Then 'здесь выбираем файл с числами. Файл должен быть корректным, иначе будет ошибка
            numbers = ReadNumbersFromFile(ofd.FileName) 'получаем числа из файла
            TextBox1.Lines = numbers 'выводим в текстбокс
            Dim limit As Integer = CInt(InputBox("Введите ограничение")) 'вводим ограничение
            TextBox2.Lines = GetLargeLimitNumbers(numbers, limit) 'выводим ограниченный массив
            TextBox3.Text = GetLimitedArrayCount(TextBox2.Lines) 'выводим количество
        End If
    End Sub
 
    'Думаю, дальше не стоит комментировать, имена функций говорят сами за себя
    Private Function ReadNumbersFromFile(ByVal file As String) As String()
        Return IO.File.ReadAllLines(file)
    End Function
 
    Private Function GetLargeLimitNumbers(ByVal numbers() As String, ByVal lim As Integer) As String()
        Dim limitedArray As New List(Of String)
        For Each n In numbers
            If CDbl(n) > lim Then
                limitedArray.Add(n)
            End If
        Next
        'TextBox3.Text = GetLimitedArrayCount(limitedArray.ToArray).ToString
        Return limitedArray.ToArray
    End Function
 
    Private Function GetLimitedArrayCount(ByVal arr() As String) As Integer
        Return arr.Count
    End Function
End Class

    Dim k As Integer
        k = Convert.ToInt32(InputBox("Введите ограничение массива:"))
        OgranTextBox.Text = Convert.ToString(k)
    Dim u As Integer
    'Dim k As Integer = v.Length
        For i = 0 To k - 1
            For j = 0 To k - 2
                If v(j) > v(j + 1) Then
                    u = Val(v(j))
                    Val(v(j) = v(j + 1))
                    (v(j + 1) = u)  'ошибка Chars
                End If
            Next j
        Next i
        For i = 0 To k - 1
            Vblvod2.Text += Str(v(i))
        Next i