Повторение одного и того же кода

---

Я пишу следующий код после каждой фильтрации Dataview. Как избежать этого повторения кода?

For i As Integer = 0 To datagridview1.Rows.Count - 1
            If (datagridview1.Rows(i).Cells("Completion Date").Value <= Date.Today) And (datagridview1.Rows(i).Cells("Status").Value = "Ongoing") Then
                datagridview1.Rows(i).Cells("Completion Date").Style.BackColor = Color.Red
            ElseIf (DateDiff(DateInterval.Day, Date.Today, datagridview1.Rows(i).Cells("Completion Date").Value) <= 20) And (datagridview1.Rows(i).Cells("Status").Value = "Ongoing") Then
                datagridview1.Rows(i).Cells("Completion Date").Style.BackColor = Color.Aqua
            End If
        Next

Что я уже пробовал:

Module Module1
    Public datagridview1 As DataGridView
    Sub Gridviewcolor()

        For i As Integer = 0 To datagridview1.Rows.Count - 1
            If (datagridview1.Rows(i).Cells("Completion Date").Value <= Date.Today) And (datagridview1.Rows(i).Cells("Status").Value = "Ongoing") Then
                datagridview1.Rows(i).Cells("Completion Date").Style.BackColor = Color.Red
            ElseIf (DateDiff(DateInterval.Day, Date.Today, datagridview1.Rows(i).Cells("Completion Date").Value) <= 20) And (datagridview1.Rows(i).Cells("Status").Value = "Ongoing") Then
                datagridview1.Rows(i).Cells("Completion Date").Style.BackColor = Color.Aqua
            End If
        Next

    End Sub
End Module

---