Фильтр по году

Public Class Form1
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Item(1, i).Value = "2017" Then
                DataGridView1.Rows.RemoveAt(i)
            End If
        Next
    End Sub
End Class

    Dim dd As Object
        For i As Integer = 0 To KvallDataGridView.Rows.Count - 1
            If KvallDataGridView.Item(1, i).Value(dd.mm.yyyy) Then
                KvallDataGridView.Rows.RemoveAt(i)
            End If
        Next

If KvallDataGridView.Item(1, i).Value(dd.mm.yyyy) > Today Then

If KvallDataGridView.Item(1, i).Value(yyyy) = "2017" Then

If CDate(KvallDataGridView.Item(1, i).Value) > Date.Today Then

If Mid(KvallDataGridView.Item(1, i).Value, 7, 4) = "2017" Then

KvallDataGridView.Item(5, i).Value(yyyy) = "2017"

        For i As Integer = DataGridView1.Rows.Count - 1 - If(DataGridView1.AllowUserToAddRows, 1, 0) To 0 Step -1
            If Mid(DataGridView1.Item(3, i).Value, 7, 4) <> "2017" Then
                DataGridView1.Rows.RemoveAt(i)
            End If
        Next

 If Mid(DataGridView1.Item(3, i).Value, 7, 4) <> Year(CDate(TextBox1.Text)) Then

If Mid(DataGridView1.Item(3, i).Value, 7, 4) <> TextBox1.Text Then

DataGridView1.Rows.Clear()