vb数据读取

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        File.OpenRead("C:\Users\HR\Desktop\新建文本文档.txt")
        Dim str As IO.StreamReader
        Dim s1 As String
        str = New StreamReader("C:\Users\HR\Desktop\新建文本文档.txt")
        's1 = str.ReadToEnd
        Dim ss() As String
        ss = str.ReadToEnd.Split(",")
        MsgBox(ss.Length.ToString)
        Dim k() As Integer
        For i = 0 To ss.Length - 1
            For j = 0 To ss.Length - 1
                If ss(j) > ss(i) - 0.5 And ss(j) < ss(i) - 0.5 Then
                    k(i) += 1
                End If
            Next
        Next
        TextBox1.Text = k(0)
        'Dim k() As Integer
        'Dim a As Integer = 0
        'For i = 0 To 5
        '    If a < 3 Then
        '        a += 1
        '    End If
        'Next
        'TextBox1.Text = a
    End Sub
End Class