Применение функции для валидации введенных данных в элементы

Private Sub TextBox_Validating( sender As System.Object,  e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating, TextBox2.Validating
        Dim ctl As Control = CType(sender, Control)
        If ctl.Text = ""
            e.Cancel = True
            ErrorProvider1.SetError(ctl,"Please enter a value")
        End If
End Sub

        Dim ctl As Control = CType(sender, Control)
        If ctl.Text = "" Then
            e.Cancel = True
            ErrorProvider1.SetError(ctl, "Please enter a value")
        Else
            ErrorProvider1.Clear()
        End If
    End Sub

On error resume next
call TextBox_Validating(sender, e)

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ErrorProvider1.BlinkRate = 0
        ErrorProvider1.BlinkStyle = ErrorBlinkStyle.NeverBlink
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        ErrorProvider1.Clear()
        Call ValidatingControls(TextBox1)
        Call ValidatingControls(TextBox2)
    End Sub
 
    Private Sub ValidatingControls(ByVal sender As Control)
 
        Dim ctl As Control = CType(sender, Control)
        If ctl.Text = "" Then
            ErrorProvider1.SetError(ctl, "Please enter a value")
        End If
    End Sub
 
End Class

Call ValidatingControls()